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CHAPTER  I 


INTRODUCTION 

The  use  of  the  computer  in  the  statistical  analysis  of  experimental 
data  is  usually  available  only  to  people,  or  teams,  who  have  statistical 
and  computational  experience.  In  particular,  the  experimenter  who 
collects  the  physical  data  can  rarely  do  the  analysis  on  the  computer 
without  help. 

The  ever-increasing  use  of  terminals,  both  typewriter  consoles  and 
graphic  display  units,  appears  to  become  a  promising  link  between  the 
experimenter  and  the  analysis  of  his  data.  Of  course,  these  terminals 
need  to  be  programmed  by  experts  in  computation  and  statistical  analysis 
before  they  can  serve  the  function  of  analyzing  the  experimenter's  data. 
Too  often,  specialists  in  some  field  with  a  smattering  knowledge  of 
statistics  and  some  elementary  programming  experience  "write  their  own 
subroutines".  There  are  literally  thousands  of  "least  squares"  and 
"regression"  programs  embodied  in  terminal  systems.  In  view  of  the  utter 
simplicity  of  this  problem,  most  would  probably  work  all  right,  a  few 
may  be  inefficient  (especially  where  factorial  designs  are  irregular  and 
the  inexperienced  statistical  layman  would  use  a  "general  linear  model" 
approach  for  their  problem  setting  up,  say,  a  20  by  20  equation  system 
where  a  statistician  would  obtain  the  same  result  from  a  3  by  3  equation 
system),  still  others  probably  lack  precision  in  any  but  the  smallest 
studies. 
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Another  problem  in  this  universal  practice  of  laymen  writing  their 
own  ad  hoc  program,  or  using  a  poorly  understood  package,  is  that  they 
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apply  inappropriate  techniques.  The  more  advanced  tools  of  analysis 
which  should  be  used  jn  their  data  are  forever  inaccessible  to  them. 

Our  approach  to' this  problem  has  been  to  have  experienced  statisticians 
write  conversational  units  addressed  to  the  experimenter  with  supposedly 
incomplete  knowledge  of  statistics  and  computation.  On  the  basis  of 
answers  given  to  these  questions,  the  computational  program  will  perform 
the  statistical  analysis  warranted  by  the  data. 

In  the  present  thesis  we 'deal  with  the  general  complex  of  "analysis 
of  variance"  in  one-way  and  two-way  (irregular)  classification  designs, 
involving  either  univariate  or  multivariate  responses.  There  exists  a 
variety  of  programs  for  this  set  of  analysis  of  which  most  are  for  use 
in  the  batch  mode.  One  major  problem,  however,  especially  in  the  multi¬ 
variate  pass  (multivariate  analysis  of  variance,  discriminant  analysis) 
is  the"  disturbing  influence  of  even  very  few  faulty  data,  i.e.,  data 
which  may  have  been  transcribed  incorrectly  or  contain  keypunch  errors, 
such  as  misplaced  decimal  points,  or  outliers  or  other  types  of  mavericks. 
Hence,  before  any  meaningful  analysis  can  be  made  the  investigator  must 
be  sure  that  he  has  good  data. 

Since  it  may  be  time-consuming  to  perform  an  initial  analysis 
of  variance,  then  in  a  new  run  to  edit  the  data,  and  thereafter  to 
perform  more  analyses,  a  conversational  approach  to  the  problem  seems  to 
be  indicated.  The  conversational  unit  available  to  us  is  an  IBM  2250 
Graphics  console  which  is  connected  with  an  IBM  360  Model  65  computer. 

The  2250  display  unit  has  an  alphameric  keyboard  and  a  program  function 
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keyboard  to  serve  as  input  devices,  and  a  cathode-ray  tube  as  an  output 

device.  Thus,  a  communication  exists  between  the  user  and  the  computer. 

This  thesis  presents  a  brief  description  of  the  classical  approach 

of  adjusted  normal  equations  which  is  employed  in  the  analysis  of 

variance  and  its  multivariate  extension.  The  user  is  then  presented 

with  a  description  example  of  how  the  program  can  be  used.  Finally, 

the  computer  programs  are  documented. 

Special  notation  which  will  be-  used: 

y  incidicence  matrix 

n. .  cell  size 
ij 

n  .  vector  of  column  sizes 
“  J 

n.  vector  of  row  sizes 

— 1. 

n  sample  size 
R  vector  of  row  totals 
£  vector  of  column  totals 
G  grand  total 

Dn.  diagonal  matrix  with  elements  of  n.  in  principle  diagonal 
See  references  ( 2 j  and  [3]  for  further  explanations. 


CHAPTER  II 


DESCRIPTION  OP  THE  CONVERSATIONAL  UNIT 


The  user,  at  the  console,  is  asked  to  supply  some  general  infor¬ 
mation  about  his  data  (title,  variable  names,  transformations,  factor 
names,  level  codes,  etc.).  Second,  he  must  enter  his  data  either  from 
the  typewriter  or  by  a  special  batch  run  if  his  data  are  voluminous. 

On  each  response  variable,  a  univariate  analysis  of  variance  is 
then  performed  (assuming,  in  any  event,  an  irregular  two-way  classifi¬ 
cation  model  -  see  Section  3.1).  In  addition  to  the  usual  analysis  of 
variance  and  the  customary  F  statistics,  the  display  contains  a  report 
of  means  in  each  cell,  size  (incidents)  of  each  cell,  standard 
deviations  of  observations  within  each  cell,  adjusted  row  means,  adjusted 
column  means,  and  various  other  quantities.  Some  hints  are  given  in  a 
special  instructional  display  as  to  how  the  user  should  utilize  these 
results  in  order  to  identify  faulty  data. 

Next;  the  user  is  given  an  option  to  view  selected  graphical 
displays  of  his  data  (data  in  a  cell,  data  in  a  ro-.  or  column,  all  data; 
each  response  variable  against  each  other  ro.  pc.se  variable).  This 
enables  him  to  detect  unusual  behavior  of  some  observations.  He  may 
then  go  back  to  a  display  of  his  original  data,  and  make  any  changes 
which  he  desires  on  the  basis  of  the  study  of  tables  of  means  and  the 


graphs.  He  may  then,  if  he  chooses >t  perform  another  univariate  pass 

f 


for  further  inspection. 


■  5 

.After  thus  i  'iting  h.is  data,  the  user  may  now  proceed  to  a  multi¬ 
variate  analysis.  He  is  asked,  specifically,  which  variables  he  wishes 
to  include  in  this,  or  any  subsequent,  multivariate  pass  [5].*%This  is 
an  important  aspect  of  our  program  in  that,  all  too  often,  multivariate 
analyses  arc  badly  distorted  by  some  variable  which  should  not  be 
included  in  the  same  study  (e.g.,  when  one  response  variable  is  a  mathe¬ 
matical  function  of  others;  if  .it  is  linear,  of  course,  the  entire 
analysis  would  be  false).  ' 

The  output  display  of  the  multivariate  pass  contains  the  usual 
quantities  of  multivariate  analysis,  i.c.,  the  Likolihood-Ra£io  test 
statistic  for  each  effect,  the  Union- Intersection  statistic  ("canonical 

'■i 

as  goodness-of-fit") ,  the  discriminant  function,  and  most  important, 
the  correlation  of  each  response  variable  versus  the  discriminant 
function  [2).  In  addition,  the  display  contains  correlation  matrices 
between  the  selected  response  variables  based  on  sums  of  squares  and 
products  for  (a)  error,  (b)  total,  (c.)  rows  plus  error,  (d)  columns 
plus  error.  .  ■ 

After  viewing  the  multivariate  analysis  displays  the  useV  may 
perform  additional  univariate  and  multivariate  analyses;  he  may  see 
his  displays  again  and  do  additional  editing.  He  may  continue  until 
he  is  satisfied  that  ho  has  viewed  his  data  from  every  conceivable 
angle. 

In  closing  it  is  important  to  note  that  the  CPU  time  needed  for 
the  analyses  is  qujtc  short  (a  few  seconds  only  even  for  the  multivariate 
pass  of  extensive  sets  of  data).  Our  console,  <’is  most  other  conversa¬ 
tional  terminals,  operates  in  a  time  shared  mode  under  a  special  monitor 
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[4],  Thus,  the  user  has  the  ability  to  spend  considerable  time  in  front 
of  the  console,  without  requesting  computer  time  any  longer  than  he 
would  have  in  batch  mode.  In  fact,  by  employment  of  programs  designed 
for  speed  [1]  the  computer  time  is  of  one  or  more  orders  of  magnitude 
shorter  than  that  required  for  other  statistical  packages. 

A  more  detailed  description  of  the  flow  of  the  analysis  is  presented 
in  Chapter  4. 


CHAPTER  III 


TOOLS  FOR  STATISTICAL  ANALYSIS 

In  this  chapter,  we  describe  those  subprograms  which  employ  special 
statistical  techniques  of  analysis.  The  other  subprograms  which  deal  with 
standard  mathematical  algorithms  (inversion,  e* ;envcctors,  numerical  inte¬ 
gration)  or  data  processing,  are  summarized  in  Chapter  5. 

3. 1  Program  ANOT 

Analysis  of  Irregular  Two-Way  Classification  Designs 


I 


1 


If  the  incidence  matrix  is  proportional,  i.e.  -  (n^  .  n.^j/n,  an 

abbreviated,  unadjusted  analysis  can  be  performed  which  is  well  described 
in  elementary  texts. 

As  it  -..ow  stands,  the  model  is  indeterminate,  and  no  reasonable 
'  '  \ 
analysis  < .  •  be  made.  Thus,  it  is  noccssar)’’  to  make  certain  assumptions 

* 

about  the  mbdel  or  to  impose  certain  conditions  to  makfc  main  effects 

\  *. 

1  "estimable".  Let  us  impose  the  following  r  +  c  -  1  conditions: 

I  -  \ 


y.  n..«..  =  0  for  all  j 

‘-i  ij 


V.  n. .6. .  =  0  for  all  i 

i;i  ij 


These  conditions  minimize,  in  effect,  the  contribution  of  l±c  interaction 
\  ' 

With  the‘se  conditions,  the  normal  equations  become  as  follows: 


nm  ’*  n..alt  : i . . b 


1  “ 


U  -  O 


n^  m  +  Dn  a_  +  Nb  =  R  \ 


*  ij  .m  +  N  a  +  Dn  .b  =  C  • 

V  -.'j  •-  o-  - 

•  I  i 

Now  there  are  r  +  c  +  1  equations  in  r  +  c  +  1  unknowns.  ) 

By  making  the  r  +  c  -  1  conditions  on  our  original  model ,  wo  now 

have  a  new  ^nd  more  restricted  model.  Different  conditions  would  have 

\lod  to  different  models  and  hence  difreren'.  analyses.  i 

\  v  1 

To  solve  the.  equations,  we  can  apply  two  constraints.  Note  that 

the  constraints  are  applied  to  the  estimates  of  the  a  and  (5  effects  and 

i 

are  only  foi:  arithmetic* convenience  in  solving  thq  set  of  singular. 

4  * 

\ 

equations.  Different  choices  of  a  pair  of  constraints  would  have  led'  to 
the  same  analysis.  > 


1 


l 

After  somk  -elementary  manipulations,  we  obtain  the  r  "adjusted 

\ 

normal  equations",  I 


Ca  =  Q. 


The  typical  elements  of  C  are  as  follows: 


o 

.  =  n.  .  nf./n  . 
11  1.  ,.L.  it  .i 

3=1  J 


and 

1 


'ik 


The  typical  element  of  Q  is 


c 

Q.  =  R.  ~y  n. .C./n  • 
-L  1  1J  3  -3 


\ 


which  is  an  adjusted  row  total. 

C  is  symmetric  and  singular;  ^  there  U'-c  r  equations  in  r  unknowns; 
and  the  rank  of  C  is  r-1.  V/o  still  have  one  constraint  which  we  can 
appl'y.  Let  a^  =  0.  Hence,  we  now  have  r-1  equations  in  r-1  unknowns. 

.  V 

Thus,  we  obtain  the  solutions  aj,a2>  ...  >ar_i>  and  ar=  0. 

\ 

The  effects,  as  such,  arc  not  estimable  but  effect  contrasts  are. 

I  «  , 

'  > 

Since  additions  of  a  constant  to  a  contrast  does  not  change  the  corttrast, 

we  can  add  a  constant  k  to  our  solutions  a.,  i=l,  ...  ,  r,  for  mere 

1  \ 

convenience  of  representation  of  the  same  results.  * 
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til 

Had  the  C  matrix  been  "orthogonal",  an  estimate  of  the  1  n  row 

til 

effect  could  have  been  R^/ru.  ,  i.e.,  the  i  1  row  mean,  an  easily 
interprctable  quantity.  This  "effect  estimate"  would  satisfy  the 
constrains  Jn.  a*  -  G,  the  grand  total.  It  is  obtained  from  an  a. 
based  upon  another  constraint,  by  addition  of  a  constant  k, 
a|  =  ai  +  k,  where 


k 


n.  a. )  /  n. 
i. 


Thus,  in  the  non-orthogonal  ca?^,  it  seems  convenient,  for 
purposes  of  intcrpretatipn,  to  use  a|  =  a.^  +  k  where  k  is  defined  as 
above.  These  at  will  be  called  "adjusted  row  means".  Note  that,  for 
the  statistician,  this  would  be  somewhat  incpnvenient.  He  prefers  sums 
or  weighted  sums  of  effects  to. add  to  zero,  so  that  he  may  add  these  in 
the  model  equation  without  having  to  subtract  constants  (in  our  case,  the 
grand  mean).  To  the  experimenter,  however,  a  mean  is  much  more  useful 
than  effect  estimates  which  are  preferable  for  mathematical  convenience. 
To  repeat,  these  are  merely  different  representations  of  identical 
result^. 

Similarly,  for  column  effects,  we  calculate,  initially, 

r 


C .  -  y  n . .  a . 
3  i=l  13  1 


J  n  . 

•  1 

For  the"adjusted  column  means",  let  bj  =  b^  + 


k  = 


G  -  f  n  .b. 
)•»  -J  ] 


_  G 
n 

k  where 


t 
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3.2  Program  TEMAT 
Multivariate  Analysis  of  Variance 
The  likelihood  ratio  statistic  is 

-m  log(|n|/|H+E|) 

where  m  =  d.f.  error  +  1/2 (d.f.  hypothesis  -  number  of  responses  -  1),' 

| E |  is  the  determinant  of  the  matrix  of  sums  of  squares  and 
products  for  error, 

H  is  the  matrix  of  "adjusted"  sums  of  squares  and  products 
for  each  hypotheses  (subtotals,  interaction,  rows,  columns, 
in  turn). 

The  first  two  terms  of  the  Bernoulli  expansion  of  the  distribution, 

4 

which  would  be  in  error  by  a  term  of  order  1/m  ,  are  employed  to  state 
at  what  level  of  significance  the  null  hypothesis  would  be  rejected. 

In  the  (hopefully  frequent)  case  that  this  level  is  below  10  ,  the 

result  is  displayed  as  zero.  Large  values  (.20  or  larger)  arc  desirable 
only  in  the  interaction  test.  From  time  to  time,  the  display  for  one 
effect  is  replaced  by  the  message  "MATRIX  JOT  GRAMIAN".  This  can  have 
two  reasons: 

(a)  There  is  linear  dependence  between  the  response  variables, 
e.g.,  one  may  be  the  sum  of  the  others.  In  this  case,  the  multivariate 
analysis  is  obviously  faulty.  A  variable  should  be  excluded  in  the 


next  run. 
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(b)  The  approach  to  the  null-hypothesis  situation  is  too  close. 

This  is  the  generalization  of  the  case  which  produces  negative  variance- 

component  estimates  in  univariate  analysis.  If  this  happens  in  an 

Interaction  test,  the  result  is  quite  desirable.  If  it  happens  in  a 

main  effect,  it  contributes  nothing.  If  the  "MATRIX  NOT  GRAM I AN" 

display  occurs  in  a  main  effect  it  simply  means  that  Hq  is  to  be 

accepted,  and  that  no  interpretation  of  discriminant  functions  or  main 

effect  differences  should  be  attempted. 

In  the  special  case  whore  the  hypothesis  has  only  one  degree  of 

freedom  (2  levels  in  a  factor)  the  likelihood-ratio  test,  just  as  the 

union-intersection  test,  reduces  to  an  F  statistic  (more  commonly  known 
2 

as  "Hotelling's  T  -  with  some  minor  variation  in  constants").  In  these 
cases,  the  F  statistic  and  the  associated  degrees  of  freedom  are  reported. 
The  user  would  have  to  compare  with  F  tables'  to  decide  on  acceptance  or 
rejection  of  the  hypothesis.  In  our  interactive  system  we  have  a 
"Calculator"  mode  which  enables  him  to  look  up,  i.e.,  actually  compute, 
the  probability  levels. 

The  program  also  calculates  the  union-intersection  statistic,  i.e., 

the  largest  characto istic  root  of  G"*H  (same  definitions  as  above).  The 

right  and  left  eigen /ectors  associated  with  this  matrix  are  also  computed 

and  reported,  the  former  being  a  representation  of  the  discriminant 

function,  the  latter  being  used  as  a  basis  for  calculating  correlations 

of  response  variables  versus  the  d.  .;riminant  functions  [2],  The 

parameters  needed  for  entering  the  Uoy-Ucck  charts  arc  displayed.  There 

is  a  practice  to  use  the  beta  statistic  SSI  1/ (SSI I  +  SSE) ,  usually  called 
2 

R  ,  as  a  measure  of  goodness  of  fit  of  a  univariate  analysis  of  variance 
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model.  To  satisfy  users  who  like  this  measure,  the  corresponding  multi- 

2 

variate  index  ("canonical  R  ")  is  reported.  It  is,  in  fact,  the  largest 
characteristic  root  of  (H  +  E)”*H. 

3.3  Distribution  Routines 

FUNCTION  GAMX(X,DF) 

P(a,x)  =  GAMX(x,a)  =  — f  x  e'yya_1dy 

T(a)  }  0 

If  DF  <  200,  the  probabilities  are  evaluated  by  a  sum  of  Poisson  terms 
a  -x 

— -  where  a  =  DF,  DF'+  1,  ... 

P(a+1) 

If  DF  >  200,  the  evaluation  is  by  cubic  approximation 

Gam(X,DF)  =  YORMX(Y)  where  Y  =  [3>/5c7df“  -  1  +  1/9DF]  ^9DF 

FUNCTION  C1IIX (X ,  DF) 


P(y,x)  =  CHIX(X,DF)  =  - - -  fX  yY/2_1e'y/2dy 

2Y/2r(y/2)  J  0 

Since  the  chi-square  distribution  is  a  special  case  of  the  gamma 
distribution,  the  probabilities  are  evaluated  by  the  use  of  the  GAMX 
subroutine  where 


CHIX(X,DF)  =  GAMX(X/2. ,DF/2. ) 
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FUNCTION  YORMX(X) 

PCx)  =  YORMX(X)  =  —  C  X  e-t  /2dt 

v/l2iT  J  ■ 

If  J x |  <  2.5,  the  evaluation  of  the  probabilities  employs  the  Hastings 

form;  otherwise,  the  Laplace  continued  fraction  is  used. 


CHAPTER  IV 


TOOLS  FOR  THE  USER 

4.1  User’s  Guide 

The  program  SPOOK  is  designed  to  provide  the  user  with  an  analysis 
of  irregular  data  matrices.  A  univariate  analysis  (i.e.,  every  score 
or  variable  is  analyzed  separately)  is  performed,  followed  by,  if  desired, 
a  multivariate  analysis  (where  all  variables  are  analyzed  as  a  set). 

The  univariate  analysis  may  be  either  a-  one-way  or  a  two-way  classi¬ 
fication  design.  A  one-way  design  is  such  that  the  individual  experi¬ 
mental  units  (e.g.,  individuals,  plots  of  land,  animals,  etc.)  are 
classified  by  only  one  characteristic  or  factor.  A  two-way  design  is 
based  upon  the  individual  experimental  units  being  classified  by  two 
characteristics  or  factors.  Each  experimental  unit  is  then  assigned  to 
one,  and  only  one.,  category  for  each  factor.  Examples  of  factors  would 
be  sex,  ago,  weight,  lu.jght,  etc.  Since  the  conversational  unit  is 
designed  for  two  factors,  a  one-way  classification  requires  special 
treatment.  In  this  instance,  the  user  should  state,  when  asked,  a  dummy 
name  (or  no  name  at  all)  for  the  first  factor  and  he  should  further 
declare  that  it  has  just  one  level.  The  second  factor  should  then  be  his 
only  factor. 

Each  factor  must  be  such  that  levels  may  'be  designated.  The 
designation  of  levels  may  be  in  the  foi'm  of  consecutive  numbers  such  as 
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a  to  b  or,  if  the  data  are  continuous,  records  which  fali  below  could 
be  regarded  as  belonging  to  level  1,  records  falling  between  and  a2 
as  belonging  to  level  2,  etc.  Thus,  the  levels  of  a  factor  such  as  sex 
could  be  designated  as  1,2  while  the  levels  of  a  factor  such  as  age  could 
be  designated  as 


5  - 

9  years 

level  1 

("end  code"  here 

is 

9) 

10  - 

14  years 

level  2 

("end  code"  here 

is 

14) 

15  - 

19  years 

level  3 

("end  code"  here 

is 

19) 

20  - 

25  years 

level  4 

("end  code"  here 

is  25). 

There  can  be  up  to  twelve  levels  for  each  factor. 

For  each  experimental  unit,  there  may  be  from  one  through  ten 
responses  to  different  variables.  Examples  of  response  variables  would 
be  a  test  score  (or  average)  in  English,  a  test  score  in  arithmetic,  and 
a  test  score  in  science,  or  the  number  of  situps,  number  of  pushups,  time 
in  100-yard  dash,  and  distance  in  broad  jump.  In  these  examples  the 
experimental  units  would  be  individuals,  and  the  factors  may  be  sex,  age, 
school  type,  etc. 

A  name  or  code  (maximum  of  four  characters)  should  be  assigned  to 
'  each  factor  and  each  response  variable.  The  naming  wUl  be  used  for 
identification  in  the  output.  In  addition  to  the  names,  a  title  might 
be  desired. 

Once  having  collected  his  data,  the  user  could  have  a  table  such  as 
Table  4.1  for  quick  reference.  With  such  a  table  he  will  be  able  to  give 
answers  to  the  questions  asked  by  the  computer. 

If  the  data  are  voluminous,  and  punched  on  cards,  the  user  is 
advised  to  refer  to  the  description  of  BUILD  in  Chapter  5  so  that  a 
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prior  batch  run  can  bo  made  to  store  the  data.  Because  preparation  of 
the  input  may  appear  complicated  to  those  with  limited  programming 
background,  a  user  who  finds  the  description  difficult  may  wish  to 
consult  a  somewhat  more  experienced  programmer  for  the  first  run.  Once 
the  batch  run  has  been  made,  the  input  portion  of  SPOOK  is  omitted,  and 
the  user  may  proceed  as  if  he  had  entered  his  data  from  the  console. 


EFFECTIVENESS  OF  TEACHING 


MALE 

FEMALE 

ENG 

ARIT 

SCIE 

ENG 

ARIT 

SCIE 

55. 1 

55.6 

46.8 

57 

47.4 

44.8 

56.1 

53.2 

41.7 

55.6 

46.3 

39.9 

PUBLIC 

55.9 

49.5 

38.1 

58 

51.2 

50 

54.4 

58.9 

39.6 

55.9 

■50.3 

39.4 

■ 

59.7 

49.5 

43.1 

52.8 

59.4 

47.1 

55.6 

54.8 

42.7 

53.6 

65.6 

42.1 

61.7 

•  53 

47.1 

PRIVATE 

53.9 

59.2 

■42.3 

56.1 

60.8 

45.2 

' 

'  53.8 

58.2 

45.2 

60.3 

67.6 

49.2 

■ 

56.7 

62.3 

49.8 

61.8 

52.6 

48.4 

58.2 

64.6 

47 

55.6 

69.9 

49,3 

BOARDING 

59.6 

52.8 

49.2 

62.3 

62.4 

50.4 

59.9 

54.3 

46.2. 

■ 

60.7 

59.4 

48.6 

Table  4.1 


4.2  Example  . 


This  section  is  intended  to  familiarize  the  user  both  with  the 
IBM  2250  display  unit  and  the  program  SPOOK. 

The  2250  display  unit  is  centered  around  a  cathode-ray  tube  on 

which  computer-programmed  information  is  displayed.  Thus,  a  visual 

communication  exists  between  the  user  and  the  computer.  The  unit  also 

has  an  alphameric  keyboard  similar  to  a  typewriter  keyboard.  There  are 

44  keys  and  a  space  bar  giving  62  standard  characters.  Special  keys  of 

interest  to  the  user  are  the  "ALT"  and  the  "5"  keys.  When  these  two 

keys  are  depressed  simultaneously,  the  end  of  a  response  is  signalled. 

This  combination  will  often  be  referred  to  as  "end  of  block"  or  "EOB". 

The  user  should  also  note  the  "BACKSPACE"  key.  This  moves  the  cursor 

\ 

back  one  space  and  as  long  as  EOB  has  not  been  signalled  the  user  can 
correct  his  typed  input.  To  the  left  of  the  alphameric  keyboard  is  a 
program  function  keyboard  which  consists  of  32  lighted  keys  numbered 
0  -  31.  All  keys,  except  key  0,  are  available  to  the  user.  At 
different  points  in  the  program,  different  keys  will  have  significance, 
and  thus  be  lighted  to  help  the  user  remember  them. 

When  the  user  first  sits  down  in  front  of  the  console,  he  should 
depress  any  key  (not  key  0).  Once  the  instructions  appear  he  should 
type  $LINK  SPOOK  and  then  signal  HOB  ("ALT"  and  "5"  depressed  simul¬ 
taneously)  . 

Even  though  each  frame  should  be  self-explanatory,  a  typical  sot 
of  data  was  constructed  and  subjected  to  the  program  to  illustrate  the 
use  of  SPOOK.  The  data  are  shown  in  Table  4.1.  Since  one  purpose  of 
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this  program  is  to  provide  a  quick  means  of  editing  the  data,  the 
example  will  try  to  illustrate  one  way  to  hunt  faulty  ones. 

The  first  display  is  shown  in  Figure  4.1.  Several  instructions 
which  are  of  particular  importance  are  as  follows:  key  30  restarts 
.  the  program,  key  31  will  terminate  the  program,  key  2  will  allow  the 
user  to  reenter  data,  and  any  remaining  key  (again,  not  key  0)  will 
allow  him  to  continue  once  he  has  seen  the  display  of  his  data.  The 
one  instruction  which  needs  all  the  emphasis  it  can  receive  is 
"CAUTION:  DO  NOT  TRY  TO  SPEED  UP  THE  PROGRAM  BY  ANSWERING  QUESTIONS 
BEFORE  THEY  ARE  ASKED.  THIS  KILL  ONLY  CREATE  PROBLEMS."  Kc  know 
there  are, users  who  anticipate  and  answer  the  next  question.  They 
must  contain  themselves,  since  all  keyboard  responses  are  placed  in  a 
queue,  and  each  question  expects  some  response.  Once  the  user  gets 
"out  of  phase",  the  best  solution  is  to  press  key  31  to  terminate  and 
then  to  reenter  the  program.  Even  the  restart  option  (key  30)  may 
riot  correct  the  situation. 

Because  the  example  is  being  created  at  the  console,  key  1  is 
depressed  to  begin  the  question  and  answer  session.  The  first  query 
is. for  a  study  title.  The  study  title  is  entirely  optional  and  is 
used  to  head  the  output.  It  may  consist  of  up  to  60  characters.  The 
display  following  the  entry  of  the  title  is  shown  in  Figure  4,2.  The 
next  question  is  "HOW  MANY  RESPONSE  VARIABLES  DO  YOU-  HAVE?"  The 
number  3  is  entered  and  the  following  message  is'  displayed  to  the  user: 
"YOU  HAVE  3  RESPONSE  VARIABLES."  As  always,  to  indicate  approval,  any 
one  of  the  unused  program  function  keys  is  depressed. 


The  next  set  of  questions  asks  the  user  for  a  name  (four  letters 
are  recognized)  for  each  of  the  response  variables.  The  purpose  of 
naming  each  response  variable  is  so  that  the  data  will  be  entered  as 
the  user  wishes  and  also  so  that  the  user  can  identify  each  in  the 
output.  Once  the  names  "ENG  ARIT  SCiC"  are  displayed  and  the  user 
has  indicated  approval,  he  is  asked  for  a  transformation  code  for  each 
response  variable.  The  query  and  the  user's  reply  is  displayed  to  him 
as  in  Figure  4.3. 

Next,  the  names  of  the  two  factors  and  the  number  of  levels  for 
each  is  required.  Again  the  naming  of  the  factors  is  for  identificati a. 
in  the  output,  but  if  the  first  factor  has  more  levels  than  the  second 
factor,  the  two  will  be  exchanged  in  the  analysis  and  hence  the  naming 
is  especially  helpful.  In  this  study,  the  first  factor  is  SEX  and  has  • 
2  levels,  and  the  second  is  TYPE  and  has  3 •levels'.  If  there  is  only 
one  factor  (one-way  classification  analysis)  the  user  should  give  a 
dummy  name  to  the  "first"  factor  (or  just  leave  the  name  blank)  and 
indicate  the  number  of  levels  (below)  as  1.  The  second  factor  is  then 
his  only  one. 

Figure  4.4  shows  the  next  display.  Since,  in  our  example,  all 

i 

levels  are  discrete  (rather  than  selected  partitions  on  a  continuous 
scale)  and  since  they  further  have  natural  codes  1-2,  1-2-3,  key  1  has 
been  depressed.  Had  key  2  been  depressed  to  indicate  continuous  levels, 
Figure  4.S  would  have  appeared  asking  for  the  "end  codes"  of  the  levels 
of  each  factor.  The  display  in  Figure  4.6  is  the  next  one  to  appear  in 
either  case; 


Figure  4.7  shows  the  instructions- for  entering  da*  .  Note  that  ] 

1 

key  2  ‘is  no  longer  used  for  reentry  of  data.  Instead,  the  user  types 

!  \  '  • 

"BACK"  and  the  number  of  entries  which  he}  wishes  to  go-^back.  bach 

time  thils  option  is  used  the  appropriate  number  of  lines  will  be  erased 

starting  at  the  bottom  of  the  display.  Thus,  one  cannot  change,  at. 

this  .stage,  an  entry  without  also  Reentering  all  of  the  following  entries. 

Key  3  will  be  depressed  when  the  user  has  entered  all  of  the  data.  Once 

key  3  is  depressed  the  user  is  forced  into  the  univariate  analysis. 

i 

i 

Hence,  he  should  be  sure  that  the  data  displayed  on  the  console  is  what, 
is!  desired  at  that  point. 

1 

Depending  upon  the  number  of  iusers  concurrently  on  the  central 
^processor,  waiting  time  for  results  may  take  several  minutes  even  though 

'the  central  processing  time  is  only  a  matter  of  a  second  or  two.  Hence, 

i 

displays  similar  to  the  one  in  Figure-  4.8  kce^>  the  user  posted  on  progress 
and  al'jlow  him  to  stop  the  calculations  if  he  wishes.  Once  key  2  is 

I 

depressed  the  program  will  proceed  to  the  output  having  performed  ( 
univariate  analyses  only  on  the  named  variables. 

As  the  display  in  Figure  4.9  indicates,  the  user  has  complete 

•  I 

control  over  what  portions  of  the  output  he  views.  Once  the  user 

reaches  the  instructions  which  follow  each  set  of  output,  he  is  not 

bound  to  follow  them  at  that  point.  He  can  Hill  depress  key  3  to 
\ 

decrement  the  page  number  and  libnee  continue  viewing  the  analyses  more 
extensively.  j 

Page  1L  (Figure  4.10)  gives  some  hints  on  how  to  begin  looking >at 
the  preliminary*  output.-  Once  the  user  has  checked  the  F-ratios,  adjusted 
means,  and  cell  means  and  standard  deviations  of  flic  univariate  analyses 


t 


1 
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1 

'  .  .  \  ' 

and  if  he  finds  nothing  abnormal,  he  jshould  still  proceed  to  the  plots 

•of  the  response  variable  pairs  and  to  the  raw  data.  Plotting  rows, 

columns,  and  cells  may  indicate  faulty  data.  At  the  plotting  segment 

he  should  check  the  upper  and  lower  limits  of  each  variable.  This  is 

another  good  way.  of  checking  on  faulty  data.  Because  of  the  many  steps 

in  bringing  data  to  be  analyzed.,  faulty  data'  or  outliers  can  easily 

occur:  data  can  be  transcribed  incorrectly  or  have  keypunch  errors. 

Thus,  the  first  analysis  should  never  be  the  last.*  | 

Figures  4.11  -  4.16  show  the  output  from  this  initial  run.  Let  us  \ 

1  ’  \ 

look  first  at  the  variable  PNG.  The  F-values  are  nonsignificant  but  a 

careful  inspection  does  not  stop  with  the  ANOVAR  table.  Looking  at 

\ 

the  adjusted  means,  one  sees  that  the  means  of  the  second  level  of  each 

factor  seems Jto  be  quite  out  of  range.  The  next  place  that  merits 

inspection  is  the  table  of  means  and  standard  deviations.  "Deviation 

t  .  ,  \ 

from  a  trend,  in  rows  or  columns"  is  a  mild  wpy  of  reporting  what  is 
happening  in  the  (2,2)  .cell.  This  clearly  indicates  that  the  quickest 
Iway  to  find  out  what  is  happening  is  to  go  to  the  plotting  segment  of 
the  program.  ^But,  first  look  at  the  JriT  and  SCIE  variables.  There  is 
nothing  to  indicate  faulty  data  in  these  variables!  The  data  in  the  ' 
two  variables  should  still  be  investigated  by  plots  and  by  looking  at 
the  raw  data. 

Figure  4\  17  hows  the  first  display  once  the  plotting  segment  is 

\  1  > 

entered.  To  begin,  the  (2,2)  cell  is  what  we  are  interested  in,  and 
the  best  method  is  to  plot  FNG  against  each  of  the  other  variates. 

I 

Figures  -4.18  and  4.19  indicate  that  entry  number  17  is  the  outlier.  \ 

i 
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Note  the  upper  and  lower  limits  on  the  ENG  variable.  Figures  4.20  -  4.22 
show  plots  of  other  data.  After  other  plots  have  been  investigated  for 
faulty,  data  which  did  not  show  in  the  analysis,  depression  of  key  5 
passes  control  of  the  program  to  a  display  of  the  raw  data.  Now,  changes 
can  be  made.  Inspection  of  entry  number  17  shows  a  misplaced  decimal 
point  (a  quite  common  mistake).  Depression  of  key  2  allows  the  correction 
to  be  made  as  shown  in  Figure  4.23.  Once  the  correction  is  made, 
depression  of  key  6  will  allow  the  user  to  see  plots  again. 

Here,  it  should  be  emphasized  that  while  the  user  is  in  the 
plotting  segment  key  5  will  take  him  to  the  raw  data  and  key  29  will 
allow  him  to  see  the  previous  univariate  analyses.  While  he  views  the 
raw  data,  key  6  will  allow  him  to  sec  plots  (these  new  plots  will 
include  any  changes  made)  and  key  29  will  allow  him  to  see  the  previous 
univariate  results.  Once  the  user  has  performed  his  first  univariate 
analysis  pass,  he  can  always  depress  key  5  to  see  raw  data  or  key  6  to 
see  plots.  This  allows  him  to  go  back  and  forth  as  often  as  he  wishes 

in  order  to  make  changes.  Hence,  if  he  made  a  change  in  the  data  and 

saw  in  the  plots  that  he  still  did  not  like  it,  another  change  could 
easily  be  made. 

In  our  example,  continuation  to  a  new  univariate  analysis  is  now 
indicated.  Figures  4.24  and  4.25  show  the  new  output  for  the  variable 

ENG.  Here,  both  factors  are  significant  and  outliers  arc  no  longer 

indicated.  Thus,  in  the  example,  the  faulty  data  point  did  produce 
obvious  changes  in  the  univariate  analysis.  On  the  other  hand,  even 
where  faulty  data  make  no  obvious  changes  in  the  univariate  analysis 
they  could  still  influence  the  multivariate  analysis  in  an  unpredictable 


manner. 
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Once  an  edited  analysis  has  successfully  been  made,  the  user 
may  indicate  a  multivariate  analysis  by  the  depression  of  key  4.  Once 
the  multivariate  option  has  been  indicated,  the  user  is  given  the 
opportunity  to  delete  any  of  the  response  variables.  After  having 
studied  the  univariate  results,  the  user  may  wish  to  exclude  some  of 
the  variables  from  the  multivariate  pass.  For  example,  a  variable 
which  shows  an  insignificant  F-value  even  for  subtotals  serves  no  good 
purpose  in  the  multivariate  analysis  and  may  dilute  it.  As  each 
response  variable  name  is  displayed  on  the  screen,  the  user  should 
depress  key  1  to  include  the  variable  in  the  multivai'iate  analysis  or 
key  2  to  exclude  it  from  the  analysis.  Once  the  user  has  made  a 
decision  on  each  name,  he  will  be  given  the  opportunity  to  revise  his 
list  if  he  should  have  made  a  mistake. 

In  the  example  we  will  include  all  the  variables  in  the  multivariate 
pass.  This  will  give  sample  output  as  seen  in  Figures  4.27  -  4.30. 

•The  multivariate  output  includes  likelihood  ratio  tests,  union-intersection 
tests,  weights  of  the  discriminant  functions,  correlation  between  each 
variable  and  the  discriminant  function,  E  matrix  of  sums  of  squares  and 
cross  products  for  error,  E  *,  and  correlation  matrices  based  on  E  and 
H  +  E  for  each  H  (see  Section  3.2). 

At  the  end  of  the  multivariate  output  is  a  message  instructing 
the  user  to  depress  key  31  .if  he  wishes  to  terminate  or  key  4  for 
another  multivariate  analysis  which  might  be  indicated  to  investigate 
new  combinations  of  response  variables.  Once  again  the  user  is  still 
free  to  depress  key  3  to  go  back  to  continue  study  of  the  output. 

Although  the  data  should  have  been  edited  completely  before  the 
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OUTPUT  -  AREA 


THIS  PROGRAM  IS  DESIGNED  TO  PERFORM  AN  ANALYSIS  OF  ippcrm  ,o 
YOU  «AY  HAVE  A  MAXIMUM  OF  10  RESPONSE  VARIABLES  AND  A  MAyVm^nJ*- 
2  FACTORS.  YOUR  DESIGN  MAY  BE  QUITE  UNBALANCED.  ANDWHmXcMrr.  P£ 
TRANSFORMATIONS  CAN  BE  MADE.  FOR  EACH  PAIREnpS 
FACTORS.  AN  ANALYSIS  OF  VARIANCE  tS  PERFORMED  FOR  EACH  RF^Pn^r 
VARIABLE.  SEPARATELY.  ONCE  YOU  SEE  THESE  UNIVARIATE  ANALYSES  vm. 
HILL  BE  GIVEN  THE  OPPORTUNITY  TO  SEE  PLOTS  OF  YOUR  DATA  AND  :hc°U 

THE  ANALYSE^ AGAlNHUS'  WlLL  BE  ABLE  T°  EDlT  Y0UR  DATA  AN°  RUN 


TO  BEGIN  YOU  MUST  ANSWER  QUESTIONS  BY  USING  THE  TYPEWRITER 
KEYBOARD  DIRECTLY  IN  FRONT  OF  YOU.  TO  SIGNAL  YOUR  COMPLETION 
OF  QUESTIONS.  FIRST  DEPRESS  THE  "ALT"  KEY,  AND  WHILE  HOLDING  IT 
DOWN,  DEPRESS  THE  "5"  KEY.  THIS  SEQUENCE  WILL  LATER  BE 
REFERRED  TO  AS  "EOB".  ONCE  YOU  ANSWER  QUESTIONS,  THE  ANSWERS 
WILL  BE  DISPLAYED  BACK  TO  YOU.  IF  YOU  ARE  NOT  SATISFIED.  PRESS 
KEY  2  TO  REENTER  DATA;  OTHERWISE,  THE  PROGRAM  WILL  CONTINUE 
BY  YOUR  PRESSING  ANY  KEY. 


AT  ANY  TIME  YOU  MAY  RESTART  BY  PRESSING  KEY  30  OR  TERMINATE  BY 
PRESSING  KEY  31. 


CAUTION:  DO  NOT  TRY  TO  SPEED  UP  THE  PROGRAM  BY  ANSWERING 
QUESTIONS  BEFORE  THEY  ARE  ASKED.  THIS  WILL  ONLY  CREATE  PROBLEMS. 


IF  YOU  HAVE  PREVIOUSLY  USED  THIS  PROGRAM- OR  ENTERED  YOUR  DATA 
THROUGH  BATCH  MODE,  PRESS  KEY  2  TO  SEE  YOUR  DATA. 


PRESS  KEY  1  TO  PROCEED. 


REPLY  AREA 


Figure  4. 1 


OUTPUT  AREA 


IF  YOU  DESIRE  TO  HAVE 
'IF  YOU  DO  NOT  DESIRE 

YOUR  TITLE  IS 

EFFECTIVENESS  OF 


A  TITLE  TO  HEAD  YOUR  OUTPUT,  ENTER  IT  Nflw 
*  TITLE,  leave  the  RESPONSE  AREA  BLANK.  * 


TEACHING 


REPLY  AREA 


Figure  4.2 


OUTPUT  AREA 

FouoJi!!GRLmfE  VARIABLE  ENTER  A  transformation  CODE  FROM  THE 


CODE 

0.1 

2 

3 

5 

fc 

1 


TRANSFORMATION 
NO  TRANSFORMATION 
LOGE(X)  (X>0) 

LOGE(HX)  <X>-1) 

SQRT(X)  (X>=0) 

1/X  (X>0) 

ARCSIN(2X-  1 )  (0<X<1> 

VARIANCE-STABILIZING  TRANSFORMATION 
AVAILABLE  (NOW.  NO  TRANSFORMATION) 


FOR  PROPORTIONS 


SEPARATE  ALL  ANSWERS  BY  COMMAS. 


ENG  ARIT  SC  IE 
1-1  1 


.  i 


REPLY  AREA 


Figure  4.3  • 


30 


31 


OUTPUT  AREA 


TO  GROUP  THE  DATA,  ASSIGN  EACH  LEVEL  OF  THE  FACTOR  AN  Tun  rnnc, 
OS  AN  IDENTIFIER.-  EG,  IF  ONE  OF  THE  FACTORS  IS  AGE  RANGING  FSHH 

5  "I-  5M«SEiRUVEL  I*'  "ISH  10  ‘SS1<i!i  AGE^ 

10-11  YEARS  LEVEL  2 

.15-11  YEARS  LEVEL  3 

20-25  YEARS  LEVEL  1 

THEN  THE  END  CODE  FOR  LEVEL  1  MOULD  BE  1.  THE  END  CODE  FOR 
LEVEL  2  MOULD  BE  tit  ETC. 

THIS  DATA  MOULD  BE  ENTERED  AS  1.11,11,25 


WHAT  ARE  THE  "END  CODES"  FOR  THE  2  LEVELS  OF  FACTOR  SEX  ? 
MHAT  ARE  THE  "END  CODES"  FOR  THE  3  LEVELS  OF  FACTOR  TYPE? 


Figure  4.5 


OUTPUT  AREA 


THE  “END  CODES'1  FOR  THE  2  LEVELS  OF  FACTOR  SEX 
1  2 

THE  "END  CODES"  FOR  THE  3  LEVELS  OF  FACTOR  TYPE 
■12  3 


REPLY  AREA 


Figure  4.6 


OUTPUT  AREA 


NON  YOU  MUST  SUPPLY  THE  DATA.  YOU  WILL  NEED  TO  INDICATE  THE 
LEVELS  OF  THE  FACTORS  AND  THE  RESPONSE  OF  EACH  VARIABLE. 
EXAMPLE:  2,1,412,34,5 

INDICATES  FACTOR  1  IS  AT  LEVEL  2.  FACTOR  2  IS  AT  LEVEL  1, 
THE  RESPONSE  FOR  VARIABLE  1  IS  412,  THE  RESPONSE  FOR 
VARIABLE  2  IS  34,  AND  THE  RESPONSE  FOR  VARIABLE  3  IS  5. 

IF  YOU  KANT  TO  OMIT  DATA  ON  A  PARTICULAR  RANDOM  VARIABLE, 
REPLACE  IT  BY  -441. 

EXAMPLE:  2,1,412,-111,5  _ 

INDICATES  THAT  THE  DATA  FOR  THE  SECOND  RESPONSE 
VARIABLE  IS  OMITTED. 

WHEN  YOU  HAVE  ENTERED  ALL  DATA,  PRESS  KEY  3. 

SHOULD  YOU  REALIZE  YOU  HAVE  A  MISTAKE  IN  YOUR  DATA,  TYPE  "BACK" 
AND  THE  NUMBER  OF  ENTRIES  YOU  WISH  TO  GO  BACK. 

WHEN  YOU  ARE  READY  TO  ENTER  YOUR  DATA,  PRESS  KEY  1. 


•  Figure  <1.7 


OUTPUT  AREA 


THE  ANALYSES  ON  THE  FOLLOWING  VARIABLES  ARE  NOW  COMPLETE. 
ENG  ARIT 

PRESS  KEY  1  TO  CONTINUE  WITH  CALCULATIONS  OR  KEY  2  TO  STOP 
CALCULATIONS  AT  THIS  STAGE. 


Figure  4.8 


OUTPUT  AREA 


KEYBOARD  FUNCTIONS: 

1  ALTERNATE  PORTION  OF  CURRENT  Pirc 

2  INCREMENT  PAGE  NUMBER  P  6E' 

3  DECREMENT  PAGE  NUMBER* 

30  RESTART  PROGRAM. 

31  TERMINATE  PROGRAM. 


•RESS  REV  I  VO  PROCEED  TO  THE  FIRST  PAGE  OF  YOUR  UNIVARIATE  RESULTS. 


Figure  A .  I) 


OUTPUT  AREA 


PAGE  1 L 


AT  THIS  POINT  YOU  SHOULD  INSPECT  YOUR  UNIVARIATE  RESULTS  VERY 
CAREFULLY.  -  1 

is  THERE  A  LARGE  INTERACTION  VERSUS  ERROR  F-RATIO? 

THIS  MAY  INDICATE  THE  PRESENCE  OF  OUTLIERS  OR  FAULTY  DATA. 

chcck  the  table  of  cell  totals  of  variables  with  large  f-ratios 

FOR  LARGE  STANDARD  (DEVIATIONS  OR  FOR  'A  CELL  MEAN  WHICH  DEVIATES 
IRREGULARLY  FROM  A  (TREND  IN  ROWS  OR  COLUMNS. 

■AFTER  YOU  HAVE  CHECKED  THESE  RESULTS  YOU  CAN  CHECK  AND  EDIT 

YOUR  DATA.  i 

1  • 


\ 


\ 


\ 

! 


1 


I 


REPLY  AREA 


38 


OUTPUT  AREA 


PAGE  ZR 


AND  EFFECTS  (  SEX  )  VERSUS  {  TYPE  ) •  . 

CELL  SIZE.  AND  ROW  3  DENOTES  STANDARD  DEVIATION. 


MEAN  SQUARE 

1.175212E  04 
1. 127447E  04 
1. 103074E  04 


F  VS.  ERROR 

1.207E  00 
1.158E  00 
1.133E  00 


F  VS.  INTERACTION 

IS.OfcSE  00 
«.022E  00 


I , 078300E  04 
1.7J7313E  03 
1,15(»74bE  03 


1 . 1 07 E  00 


R“0r  NEJSo?°1Ie?«  fflE-‘tNrERACT.5N8=k81nE 


01 

1.058273E  02 


39 


ROWS  = 
SEX 
COOED 
LEV.  1 


OUTPUT  AREA 

PAGE  3l 
effectiveness  OF  TEACHING 

VARIABLE-  (  ARIT  )  TABLE  OF  MEANS 

IN  EACH  BLOCK,  ROW  1  DENOTES  CELL^ME ANS?  ROW  ^DENOTES 

CODEDLEVELS 

C  il 


1  5.430E  01  fc.OEOE  01  5. HOE  01  5.812E  01 

<1  «  3  11 

3. U2^  00  3.3HE  00  E.255E  00 

2  4.8HE  01  5.R05E  01  5.H2E  01  5.5fc8E  01 

5  <1  5  14 

2.038E  00  4.L04E  00  t.HOE  00 


5!  132E  01  5.182E  01  S.IHE  01  5.H5E  01 
1  8  8  25 

ESTIMATES  Gr  SEX  ADJUSTED  MEANS,  ORDERED 
1  2 

5.81EE  01  5.5L4E  01 

ESTIMATES  OF  TYPE  ADJUSTED  MEANS,  ORDERED 
3  2  1 

5.H5E  01  5.1bTE  01  5.  13 IE  01 

ANALYSIS  OF  VARIANCE  FOR  VARIABLE  ARIT 


SOURCE  OF  VARIATION 

SEX  (ROWS) 

TYPE  (COLS) 

SEX  *  TYPE<  INTERACTION) 

subtotals 

ERROR 

•TOTAL 


SUM  OF  SQUARES 

3.8t,3b«53E  01 
4 , 1b5Tfc^E  02 
3.001245E  01 

4.8331  HD  02 
4.11^1210  02 
1.812H3D  02 


REPLY  AREA 


Figure  4. 13 


40 


OUTPUT  AREA 


PAGE  JR 


AND  EFFECTS  <  SEX  >  VERSUS  (  TYPE  > 

CELL  SIZE.  AND  RON  3  DENOTES  STANDARD  DEVIATION. 


F  VS.  ERROR  F  VS.  INTERACTION 

1.414E  09  2.510E  00 

1.1<nE  00  1.385E  01 

5. 13 IE -01 

3 ,  fc88E  00 


DOT  MEAN  SQUARE  ERROR5 
ROOT  MEAN  SQUARE 


5.1H430E  00 

INTERACTION  =  3.8TH51E  ©0 


Figure  4.14 


OUTPUT  AREA 


ROWS  = 
SEX 
CODED 
LEV.  1 


PAGE  m 
EFFECTIVENESS  OF  TEACHING 
VARIABLE  (  SC  IE  )  TABLE  OF  MEANS 
COLUMNS=  TYPE 

IN  EACH  BLOCK.  ROW  1  DENOTES  CELL  MEANS.  ROW  2  DENOTES 
„  ,  CODED  LEVELS 

2  3 


1  4.155E  01  i<inE  01  *1.8b1E  01  4.445E  01 

*1  *1  3  11 

3.118E  00  2 .4 10E  00  1.*11*1E  00 

2  4.344E  01  4. LOSE  01  4.858E  01  *1.b©2E  01 

5  *1  5  1*1 

4.2S1E  00  2 . HIE  00  1.543E  00' 


COL. 


*l.2bOE  01  *1.51  IE  01  *1 .8b IE  01  R.533E  01 
*1  8  8  25 


ESTIMATES  OF  SEX 
2  1 

4.581E  01  *1.*1b1E  01 

ESTIMATES  OF  TYPE 
3  2  1 

H  .853E  01  4.5HE  01  ^  .'2b  1 E  01 


ADJUSTED  MEANS.  ORDERED 


ADJUSTED  MEANS.  ORDERED 


ANALYSIS  OF  VARIANCE  FOR  VARIABLE  SCIE 


SOURCE  OF  VARIATION 

SEX  '  (ROWS) 

TYPE  (COLS) 

SEX  *  TYPE< INTERACTION) 

SUBTOTALS 

ERROR 

TOTAL 


D.F. 

1 

2 

2 

5 

n 

2*1 


SUM  OF  SQUARES 

*»  .«»*1b'*1*43E  00 
1.*l82mE  02 
5.03b13*lE  00 

1 .  b8b 3b3D  02 
1.1HH2D  02 
3.*100505D  02 


REPLY  AREA 


Figure  4. 15 


OUTPUT  AREA 


PAGE  RR 


AND  EFFECTS  {  SEX  )  VERSUS  (  TVPE  > 

CELL  SIZE.  AND  ROW  3  DENOTES  STANDARD  DEVIATION. 


MEAN  SQUARE 

1.144,4430  00 

■j.414Hoe  01 

2.51844.7E  00 


F  VS.  ERROR 

1 .  1 02 E  00 
8 . 2  HE  00 

2. H2E-01 


VS.  INTERACTION 

3.141E  00 
2 .144E  01 


3 . 31 2 T 2 t>E  01  3.T38E  00 

1.02  HUE  00 
1 . 4  1 4877E '0  1 


ROOT  MEAN  SQUARE  error  = 
ROOT  MEAN  SQUARE 


3 .003b3 IE  00 

INTERACTION  =  1  .584>14,1E  00 


Figure  4.16 


43 


OUTPUT  AREA  • 

YOU  HAVESTH£ECHQlCEAOFLSE^tNG  A^ELL^/Sn*  DATA  POINTS 
ALL  YOUR  DATA.  TO  INDICATE  YOURCCHmr?  n?W£n?  COLUMN,  or 
■THE  LEVELS  OF  BOTH  FACTORS  IF  YOU  i|lH°fnP2^TS'  TYPE  IN 
9F..LF*CJM  ™p£  H0“  FOR  THE  LEVEL  S  °  SEE  ALL  LEVELS 

INDICATES  BOTH  LEVELS  AT  9 
INDICATES  THE  4TH  COLUMN  Z* 

NDICATES  THE  3RD  ROW 
INDICATES  ALL  POINTS.’ 


EXAMPLE: 


2,2 
O'.  4 
3.0 
0.0 


WHICH  SET  OF  POINTS  DO  YOU  WISH  TO  SEE? 

WHICH  TWO  RESPONSE  VARIABLES  DO  YOU  WISH  TO  cco 
PLEASE  ENTER  THE  FIRST,  EOB,  AND  THE  SECOND,  fos. 


REPLY  AREA 


.  Figure  4.17 


satyrs 


49 


SEX  TYPE 

1 
2 

3 

4 

5 
b 
T 
8 
«) 

10 
1 1 
12 

13 

14 

15 
1b 

n 
18 
11 
20 
21 
22 

23 

24 

25 


ENG 

5.510E  01 
S.blOE  01 
5.510E  01 
5.440E  01 
5.280E  01 
5.3bOE  01 
5.310E  01 
5.380E  01 
5.b10E  01 
5.820E  01 
5 . 1 bOE  01 
5.100E  01 
5 .  5bOE  01 
5.800E  01 
5.510E  01 
5.470E  01 
5 . 5b0£  02 

b.  hoe  oi 

5 . b 1 0£  01 
b.030E  01 
b.  1 80E  01 
5 .  5b0£  01 
b . 230E  01 
S.IIOE  OI 
b.OTOE  01 


OUTPUT 
ARI  T 

5 . 5bOE  01 
5.320E  01 
4.150E  01 
5.8T0E  01 
5.440E  01 
b.5bOE  01 
5 .  ^20E  01 
5.820E  01 
b  .  230E  01 
b  .  4  bOE  01 
5.280E  01 
4  .  "?40E  01 

4 .  b30E  01 

5.  1 20E  01 
5.030E  01 
4.T50E  01 
5.4S0E  01 
5.300E  01 
b.OSOE  01 
b.TbOE  O'l 
5 . 2bO£  01 
b.'HOE  01 
b.240E  01 
5.430E  01 
5 . 440E  O’ 


AREA 
SC  IE 

4 .  b80E  01 
4.  noE  oi 
3.810E  OI 

3  .  *?  bOE  01 
4.110E  OI 
4.210E  01 
4.230E  01 
4.520E  01 
4 .  480E  01 
4.T00E  01 
4.  <i20E  01 
4.480E  01 

3. tnOE  OI 
5.000E  01 
3.140E  01 
4.310E  01 
4.210E  01 
4.110E  01 
4.520E  01 

4  .  20E  01 
4.840E  01 

4 .  430E  OI 
5.040E  01 
4 , b20E  01 
4 . 8bOE  01 


1  2 
1  2 
1  2 
1  2 
1  3 

1  3 

1  3 

2  1 

2  1 
2  1 
2  1 
2  1 
2  2 
2  2 
2  2 
2  2 
2  3 

2  3 

2  3 

2  3 

2  3 


REPLY  AREA 


Figure  4.23 


ROWS  = 
SEX  • 
CODED  ' 
LEV.  1 


OUTPUT  AREA 

PAGE  2 L 

EFFECTIVENESS  OF  TEACHING 

t  « 

VARIABLE  (  ENG  )  TABLE  OF  MEANS 

1  ,  I 

COLUMNS^  TYPE 

IN  EACH  BLOCK.  ROW  1  DE.’NOTES^CELL  MEANS^  ROW  2  DENOTES 

2  •  3 


t  5 ,63'fE  01  5.352E  01\5.8HE  01  5.5«b£  01 
1  l*I8E-0’l  5 . OOOE-O  1  t  . -M50E  00 


2  5 .12^E  01  -1.835E  02  b.OObE  01  ^.^JSE  01 

t.fME  00  2.483E  02  2.bb4E  00  j 

C°5’  m  i£  ©I  1.185E  02  5.U5E  01  1.123E  01  ; 

'  8  ‘  o  t-v  i 

estimates  of  sex  adjusted 'means,  ordered 

2  1 * 

«i.b55E  01  B.2b^£  01 

estimates  of  type  adjusted  means,  drdered 

1.212E  02  5 .  b  b  1 E  01  S.^OE  01 

analysis  of  variance  for  variable  enq 


SOURCE  OF  VARIATION 

SEX  .  (ROWS) 

TYPE.  (COLS) 

SEX  *  jTYPE(  INTERACTION) 

subtotals 

error 

total 


SUM  OF  SQUARES 

1 .  115212E  04 
2.25‘18‘ME  0*1 
2 . 20b 1 48E  04 

5,3‘i1‘t')1D  04 
1 . 850410D  05 
2 . 385 b20D  05 


REPLY  AREA 


Figure  4 . 24 


i 


1 


51 


V 


OUTPUT  AREA 


PAGE  2,R 


AND  EFFECTS  <  SEX  )  VERSUS  (  TYPE  ) 


CELL  SIZE.  AND  ROW  3  DENOTES  STANDARD  DEVIATION 


I 


1 


MEAN  SQUARE  ^  F  VS.  ERROR  F  VS.  INTERACTION 


s.en^mE  ei 
2.23U18E  01 
b.  13TJ5TE  OO 

2 . 34  1048E  01' 
3 . 8R 3^2 1 E  00 ; 
T .  00 


1.281E  01 
S.145E  00 
1.5UE  00 

b.013E  00 


8.H8E  OO 
3.b44E  00 


ROOT  MEA^SQUARE  00 

f  _ ; _ _  _ _ 

REPLY  AREA 


Figure  4.25 


52 


OUTPUT  AREA 


YOUR  RESPONSE  VARIABLE  NAMES  MILL  APPEAR  BELOW  ONE  AT  A  TIME. 
PRESS  KEY  1  IF  YOU  WISH  TO  INCLUDE  THE  VARIABLE  OR  KEY  2  IF 
YOU  WISH  TO  DELETE  THE  VARIABLE. 

ENG 

ARIT 

SC1E 


THE  ABOVE  VARIABLES  ARE  THE  ONES  YOU  DECIDED  TO  INCLUDE. 

IF  YOU  AGREE.  PRESS  KEY  1;  IF  YOU  WOULD  LIKE  TO  TRY  AGAIN, 
PRESS  KEY  2. 


i 


REPLY  AREA 


Figure  4.26 


i 


53 


Figure  <1.27 


54 


OUTPUT  AREA 


SC t £  1.3580E  02  2.4125E  02  3.4008E  02 


PAGE  SL 


CORRELATIONS  BASED  ON  Ht£ 

ENG  ARIT  SCIE 

ENG  1.OOO0E  00  -«>  .23i>  IE-02  5.3212£r01 

ENG  ARIT  SCIE 

ARIT  -1.23UE-02  l-.OOOOE  00  ^IIBE-OI 

ENG  ARIT  SCIE 

SCIE  5 . 3212E-0 1  ^ . 21*»*»E -0 1  1.0000E  00 

STANDARDIZED  ROY  STATISTIC  OR  SQUARE  OF  A  CANONICAL  CORRELATION  = 

READ  HECK  CHARTS  WITH  S  =  3  M  =  0.5  N  =  1.5  . 

WEIGHT  OF  DISCRIMINANT  FUNCTION 

ENG  ARIT  SCIE 

<1 .  L251E-02  1.2241E-02  8.43L2E-03 

CORRELATIONS  BETWEEN  DISCRIMINANT  FUNTION  AND  ORIGINAL  VARIABLE' 

/  ENG  ARIT  SCIE 

1.3U5E-01  3 .  tfc31£-0 1  i.205(,E:01 

INTERACTION  SEX  *  TYPE 

.  tt-Pi  !HOOD  RATIO  TEST  STATISTIC.  CHl-SWARE  •  =  0.5881E  01  WITH 

L IKEL  HUUU  kamu  *  SIGNIFICANT  AT  LEVEL  0.431E  00 

MATRIX  H+E 

ENG  ARIT  SCIE 

ENG  8.L32LE  01  -5.L5HE  01  3.548RE  0! 

ENG  ARIT  SCIE 

ARIT  -5.L5HE  01  5.2801E  02  5.1081E  01 

ENG  ARIT  SCIE 

SCIE  3.SWE  01  5.B087E  01  I.H^E  02 

CORRELATIONS  BASED  ON  Ht£ 


REPLY  AREA 


'  Figure  4.28 


OUTPUT  AREA 


PAGE  fcL 


ENG  I.OOOOE  00  -2.H15E-01  2.8148E-01 

ENG  ARIT  cf i r 

ARIT  -2.b4l5E-01  I.OOOOE  00  1.1354E-01 

ENG  ARIT  SCIF 

SCIE  2 .8148E-0 1  1.1354E-01  I.OOOOE  00 

SfrST?E  i  coBsetAriOM  . 

•  i  '  ♦  V 

HEIGHT  OF  DISCRIMINANT  FUNCTION 

ENG  ARIT  SC  IE 

5.1153E-02  1.5122E-02  -1.fc132E-02 

CORRELATIONS  BETWEEN  DISCRIMINANT  FUNT I  ON  AND  ORIGINAL  VARIABLES 

ENG  ARIT  SC  IE 

fc.i301E-01  3.4501E-01  -1.(,lO3E-02 


TEST  STATISTIC  F  = 


SEX  EFFECTS 

3.841,5  WITH'  3.  AND  H.  D.F . 

WEIGHT  OF  DISCRIMINANT  FUNCTION 


ENG  ARIT  SC  IE 

1.4101E-02  -1. 1141E-04  1 .Ob5 IE-05 


CORRELATIONS  BETWEEN  DISCRIMINANT  FUNT l ON  AND  ORIGINAL  VARIABLES 


ENG  .  ARIT  SCIE 

1.1181E-01  -3.3801E-01  2.1231E-01 


TYPE  EFFECTS 


LIKELIHOOD  RATIO  TEST  STATISTIC,  CHI-SQUARE  =  0.2211E  02  WITH 

SIGNIFICANT  AT  LEVEL  0.120E-03 


MATRIX  HtE 


REPLY  AREA 


Figure  4.29 


56 


{ 


OUTPUT  APE  A 


PAGE  1L 


ENG  • 

ENG 

1 . 181  IE  02 

ARIT 

1.0310E-01 

SCIE 

1 .0 1 81 E  02 

ARIT 

ENG 

1 .0310E-01 

ARiT 

1 .  1454E  02 

SCIE 

2. 11518  02 

SCIE 

ENG 

1.0181E  02 

ARIT 

2..1151E  02 

SCIE 

3.  iniE  02 

ENG 

ENG 

1 .OOOOE  00 

ARIT 

2. 14218-03 

COR 

SCIE 

5 . 2303E-0 1 

ENG 

ARIT 

SCIE 

ARIT 

2.H21E-03 

1. OOOOE  00 

5. 1101E-01 

SCIE 

ENG 

5 . 2303E-0 1 

ARIT 

5. 1101E-01 

SCIE 

1. OOOOE  00 

CORRELATIONS  BASED  ON  HtE 


STANDARDIZED  ROY  STATISTIC  OR  SQUARE  OF  A  CANONICAL  CORRELATION  = 
READ  HECK  CHARTS  KITH  S  =  2  M  =  0.0, N  =  1.5 


HEIGHT  OF  DISCRIMINANT  FUNCTION 


.  ENG 
3.4L41E-02 


ARIT 

1.58HE-02 


SC'.E 

1 .3041E-02 


CORRELATIONS  BETWEEN  DISCRIMINANT  FUNTIQN  AND  ORIGtNAL  VARIABLES 


ENG 

4 .  1H8E-0 1 


ARIT 

b.  H58E-01 


SCIE 

1.01 05E-0 1 


REPLY  AREA 


Figure  4.30 


CHAPTER  V 


COMPUTER  PROGRAMS 

The  computer  programs  were  written  in  FORTRAN  IV  for  the  IBM  360 
Model  65  and  operate  under  Graphics  Monitor  System  (GMS).  Extensive 
use  is  made  of  the  COMFORT  and  COMPLOT  graphics  subroutine  packages. 

The  computational  routines  are  from  the  MUDAID  program,  thus  for  more 
complete  documentation,  the  reader  is  referred  to  A  FORTRAN  II  PROGRAM 
FOR  MUDAID:  Multivariate,  Univariate,  and  Discriminant  Analysis  of 
Irregular  Data. 

A  load  module  under  GMS  is  limited  to  140K  of  core  storage,  and 
thus  to  reduce  the  size  of  the  program  an  overlay,  structure  was  utilized. 

A  main  program  or  root  was  developed  to  control  the  flow  of  the  program, 
and  the  remaining  subroutines  of  the  program  were  divided  into  segments 
which  were  not  needed  in  core  at  the  same  time.  Hence,  several  subroutines 
use  the  same  core  storage  at  different  times.  The  overlay  structure  and 
listing  of  the  job  control  cards  are  found  at  the  end  of  this  chapter. 

This  program  uses  five  different  data  sets.  Unit  11  (NN1)  is  a 
sequential  file  and  is  used  to  store  the  transformed  data.  Unit  12  (NW2) 
is  also  a  sequential  file  and  is  used  to  store  intermediate  results  and 
to  pass  them  between  overlays.  Units  16,  17,  and  38  ar*e  all  direct  access 
files.  Units  16  (Nl)  and  17  (N2)  each  have  1980  records  of  80  characters 
in  length,  arc  written  under  format  control,  and  the  associated  variables 

are,  respectively,  1REC1  and  IREC2.  Nl  and  N2  arc  used  to  display  output. 
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Unit  38  (N3)  has  510  records  of  80  characters  in  length,  is  written  either 

* 

with  or  without  format  control,  and  the  associated  variable  is  IREC3.  N3 
is  used  to  store  raw  data  for  display  and  also  to  store  selected  common 
variables.  N3  may  be  built  within  SPOOK  or  through  the  batch  use  of  BUILD. 

The  main  program  serves  as  "traffic  controller"  to  call  the  various 
subroutines.  The  order  in  which  the  subroutines  is  called  depends  largely 
on  the  variable  N  which  is  the  number  of  the  program  function  key  depressed 
by  the  user.  The  main  program  also  initially  sets  the  variable  MULT  *  1 
which  forces  the  user  to  proceed  through  the  univariate  pass. 

MAINA 

This  subroutine  serves  as  control  for  the  INPUT  and  PMATX  subroutines. 
Once  the  multivariate  option  is  indicated,  MAINA  only  calls  the  subroutine 
PMATX.  • 

INPUT 

This  subroutine  is  the  main  conversation  unit  of  the  entire  program. 

By  asking  questions  of  the  user,  INPUT  receives  the  raw  data  and  provides 
the  initial  processing  and  storing  of  the  data  for  future  use. 

In  the  general  instructions,  the  user  finds  that  key  30  can  be 
depressed  at  any  time  to  restart  the  program  and  that  key  31  is  the  "panic 
button", " i. e. ,  any  time  it  is  depressed  the  program  terminates.  Each  time 
the  user  answers  a  question,  the  answer  will  be  displayed  back  to  him  and 
then  he  must  either  depress  key  2  to  reenter  his  response  or  any  other 
key  (not  30  or  31)  to  continue  with  the  program.  If  an  answer  does  not 


fulfill  the  specific  requirements,  it  will  be  displayed  with  an  error 
message  asking  for  the  reentry  of  the  response.  Here,  the  program 
begins  by  asking  the  user  if  lie  has  used  the  program  previously  or  if 
he  has  entered  his  data  by  the  use  of  the  program  BUILD.  If  the  answer 
to  this  question  is  yes,  the  user  is  instructed  to  press  program  function 
key  2  to  branch  to  statement  1001;  otherwise,  depression  of  key  1  will 
allow  him  to  continue  with  the  program  and  building  of  data. 

The  first  query  is  for  a  study  name  header.  This  can  be  any 
combination  of  characters  up  to  60  characters  in  length.  The  title  is 
optional  and  is  used  only  for  the  heading  of  the  output. 

Beginning  in  statement  213  the  user  is  asked  for  the  number  of 
response  variables  in  his  study.  This  number  may  range  from  one  up  to 
and  including  ten.  If  the  number  is  not  in  this  range,  an  error  message 
is  displayed  asking- for  rieiiu>  of  the  response.  In  the  215  loop  the 
user  is  asked  to  give  each  response  variable  a  four  character  name  or 
code  so  that  he  will  be  able  to  identify  eacli  variable  in  the  output. 

Each  response  variable  can  have  a  transformation  assigned  to  it  by 
the  user  selecting  a  code  from  the  following  list: 

Code  Transformation 

0,  1  no  transformation 

2  loge(x)  (x  >  0) 

3  '  logc(l+x)  (x  >  -1) 

4  */x  (x  >_  0) 

•  '  5  1/x  (x  >  0) 

6  arcsin(2x-l)  (0  <  x  <  1) 

7  available  (now':  no  transformation) 
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A  check  is  made  to  insure  that  the  codes  s'electcd  by  the  user  are  from 

the  above  list;  if  not,  an  error  message  appears.  If  the  data  assigned 

to  a  variable  is  "illegal"  for  the  particular  transformation,  the  data 

in  question  will  then  be  set  to  -999  and  thus  later  be  ignored  in  the 

processing  of  data.  An  example  of  "illegal  data"  would  be  the  square 

root  or  log  of  a  negative  number, 
c 

Because  of  limited  space  in  the  conversational  mode,  the  user  is 
limited  to  only  two  factors.  As  with  the  response  variables,  in  loop 
226  the  user  is  asked  to  give  each  factor  a  four  character  name  or  code. 
Each  factor  may  have  a  maximum  of  twelve  levels.  If  the  user  has 
continuous  data,  the  data  will  be  encoded  into  levels  by  the  user 
supplying  "end  codes".  If  one  of  the  factors  is  age  ranging  from 
5  to  25  years  and  is  to  grouped  as  follows: 

•  •  5  -  ..9  years  level  1 

10-14  years  level  2 

15  -  19  years  level  3 

20  -  25  years  level  4 

the. end  codes  would  be  9,  14,  19,  and- 25.  Loop  844  provides  the  encoding 
of  the  levels.  ,  . 

The  last  of  the  conversational  segment  is  the  entering  of  the  data. 
The  user  is  asked  to  indicate  the  level  of  each  factor  and  the  response 
of  each  variable.  If  the  data  on  a  particular  variable  is  to  be  omitted, 
the  user  is  instructed  to  enter  -999  and  thus  the  data  will  be  later 
ignored. 

Immediately -after  each  set  of  data  is  entered,  the  raw  data  is 

displayed  back  and  is  also  placed  on  direct  access  unit  38  for  future 

\ 

•  % 


use  in  the  1001  segment  of  INPUT.  Then  the  106  loop  places  the  factor 
levels  into  the  coded  levels,  the  102  loop  processes  the  variable 
responses  through  the  appropriate  transformations,  and  the  data  is 
stored  on  NW1  for  future  use. 

Program  function  key  2.  is  no  longer  used  to  reenter  data.  Instead, 
the  user  types  ."BACK"  and  the  number  of  entries  he  wants  to  go  back. 

Then  in  the  380  loop  the  appropriate  number  of  entries  is  removed  from 
the  screen,  and  NW1  and  N3  are  reset  to  the  appropriate  places.  If 
only  the  work  "BACK"  is  entered,  only  one  entry,  is  removed. 

When  all  the  data  have  been  entered,  the  user  depresses  key  3  to 
indicate  this.  Control  is  then  passed  back  to  MAIN'A  to  begin  the 
calculations. 

The  last  segment  of  the  INPUT  routine  begins  at  statement  1001  and 
is  not  accessible  to  the  user  until  he  has  either  seen  the  univariate 
results  or  has  previously  entered  his  data'.  The  raw  data  are  displayed 
from  N3  and  the  segment  allows  the  user  to  edit  his  data.  To  delete  a 
record,  the  user  types  "DROP"  and  the  subject  number.  The  variable 
responses  are  then  replaced  by  -999  which  is  always  ignored  in  the 
calculations.  To  add  data,  the  user  gives  the  next  subject  number  and 
the  new  record.  The  variable  NSUBJ  (number  of  data  rccoi'ds)  is  then 
incremented.  To  change  a  record,  the  user  types  the  record  number  and 
the  new  record.  At  this  stage,  changes  arc  made  only  on  the  N3  unit. 
Once  all  the  changes  to  the  data  are  made,  new  transformations  may  be 
indicated.  The  data  arc  then  read  from  N3,  reprocessed  through  the  106 
and  102  loops,  and  stored  on  NW1  before  the  subroutine  is  left. 
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While  in  this  segment  of  INPUT,  the  user  may  return  to  his  previous 
univariate  analysis  output  by  depression  of  key  29  or  to  the  plots  of 
his  data  by  depression  of  key  6. 

A  flow  chart  of  this  subroutine  is  included  at  the  end  of  this 
chapter. 

PMATX 

This  subroutine  processes  the ‘data  stored  by  INPUT  on  NW1.  An 
initial  decision  is  made  depending  on  the  value  of  the  variable  MULT. 

If  MULT  =  1,  a  univariate  analysis  is  made;  if  MULT  =  0,  a  multivariate 
analysis  is  made. 

In  the  univariate  pass  (statements  511  -  600),  the  data  are  first 
checked  for  omitted  data  (-999).  If  missing  data  are  found,  the  obser¬ 
vation  is  ignored.  PMATX  stores  on  NW2  the  following  arrays:  NN  which 
consists,  of  the  incidence  matrices,  SUBT  which  is  the  array  of  cell 
totals,  DS5  which  is  the  array  of  sums  of  squares  in  each  cell,  and  DSQU 
which  is  the  vector  of  the  sum  of  squares  of  all  observations  for  each 
variable,  the  latter  being  in  double  precision. 

In  the  multivariate  pass  (statements  510  -  520),  the  number  of 
variables  to  be  used  (NLUV)  is  first  calculated  by  counting  the  nonzero 
elements  in  LUV.  NLUV  and  NVBL  are  then  exchanged.  This  exchange  retains 
the  value  of  NVBL  so  that  the  multivariate  pass  can  be  executed  as  many 
times  as  desired  as  if  it  were  the  first.  Here,'  if  missing  data  are 
found  in  any  part  of  the  record  (signalled  by  ISETC13)),  the  entire 
record  is  eliminated.  Also,  if  the  LUV  clement  for  a  variable  is  0, 
the  data  for  this  variable  are  ignored.  Once  each  record  has  been 
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processed  through  statement  505,  the  LUV  vector  is  restored  to  its 
original  values  so  that  correct  values  will  be  obtained  in  all  records. 

For  this  multivariate  pass,  PMATX  also  stores,  on  NN2,  DSSCP 
•which  is  a  matrix  of  sums  of  squares  and  cross  products. 

MAINC 

For  each  response  variable,  the  arrays  DSSCP,  NN,  DSS,  SUBT,  and 
the  vector  DSQU  are  read  from  NW2.  Because  NN,  DSS,  and  SUBT  are  read 
when  needed,  the  storage  areas  are  equivalenced  thus  reducing  the  size 
of  the  subroutine.  An  incidence  matrix  NN1  is  constructed  from  NN:  a 
matrix  of  sums  of  squares  SS  is  constructed  from  DSS;  a  matrix  of 
subtotals  SUB  is  constructed  from  SUBT;  and  a  variable  DSQV  which  is 
the  sum  of  squares  of  all  observations  is  produced  from  the  vector  DSQU. 
MAINC  then  calls  ANOT  which  performs  the  univariate  analysis  of  each 
variable.  After  ANOT  returns  control,  intermediate  results  once  again 
are  stored  on  N1V2. 

ANOT 

This  subroutine  is  called  from  MAINC  once  for  each  response  variable. 
ANOT  performs  the  univariate  analysis  by  the  use  of  adjusted  normal 
equations. 

If  the  number  of  rows  is  greater  than  the  number  of  columns, 
exchanges  are  made  in  NR  and  NC,  NX  (incidence  matrix),  SQRX  (cell  sum 
of  squares  matrix),  SUBX  (cell  totals  matrix),  and  the  variable  II-’LAG  is 
set  to  1.  If  any  rows  or  columns  are  empty,  a  compacting  routine  then 
eliminates  the  rows  or  columns  from  NX,  SQRX,  and  SUBX.  Calculations  of 


the  number  of  observations  in  each  row  (NJI)OT),  unadjusted  row  totals 
(R) ,  number  of  observations  |n  each  coluiiip  (NDOTJ),  unadjusted,  column 
totals  (C) ,  grand  total  (G),  totnl  number  of  observations  (NN)j  grand 
mean  (GM) ,  corrected  sum  of  squares  for  total  (SSTO),  sum  of  squares  ) 
for  subtotals  (SSB) ,  sum  of  squares  for  error  (S^E)  are  completed.  In 
loop  60  the  matrix  CX  of  the  "adjusted jnormal  equations"  and  vector  Q 
(lector  of  '^adjusted  row  totals")  are  calculated.  Loop  288  calculates 
the  adjusted  column  totals  (QB) .  The  adjusted  normal  equations  and 
adjusted  row  totals  are  reduced  by  oi'je  so  th(|  EQSYM  invetts  an*  (r-l)x(r-l) 
matrix.  Estimates  of  row  effects  (RE)  and  column  effects  (CE)  are  both 

I  1 

obtained  by  statement1  216.  Loop  92  obtains  the  cell  standard  deviations.' 

« 

Tho  analysis  of  variance  begins  with .statement  215.  Sums  of 

squares,  mean  squares,  F-ratios,  and  estimates  of  adjusted  means  (ordered) 

l  '  \  \ 

I 

arc  all  completed  by  statement  246.  I  I 


The  table  for  each  variable  which  includes  cell  means,  the  number 
of  observations  in  each  cell,  the  standard  deviation  for  each  cell. 


unadjusted  row  and  column  means,  estimates  of  row  and  column' effects., 
and  an  analysis  of  variance!  table  containing  sums  of  squares,  mean 

•  r 

squares,  degrees  of  freedom,  F  versus  error,  and  F  versus^ interaction  ^ 
is  tnen  placed  on  N1  and  N2.  ; 

If  the  rows  and  columns  were  exchanged  originally,  they  are 
exchanged  again.  ANOT  then  ^alls  INTER  before  returning  control  to 
MAINC.  ANOT  returns  to  MAINC  the  estimates  of  row  effects  (RE), 
estimates  of  column  effects  (CE) ,  the  adjusted  row  totals  (Q),  and  I  the 
adjusted  column  totals  (QB) .  MAINC  then  stores  these  results  on  NW2 . 

A  description  of  tho  algorithms  employed  is  given  in  Section  3.1. 


■  V 
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EQSYM 


'  1 

This  subroutine  solves  the  adjusted  normal  equations  by  the 

inversion  of  an  (r-l)x(r-l)  matrix  where  r  is  the  number  of  levels  ' 

i  1 

o’f  the  factor  with  the  least  number  of  levels.  \ 


INTER 

This  subroutine  is  called  from  ANOT  justj before  control  is 
returned  to  MAINC.  It  displays  a  message  to  the  user  indicating  the 
variables  on  which  analysis  has  been  completed.  The  user  then  has  the 
choice  of  pressing  program  function  key  1  to  continue  with  calculations 
or  key  2  to  stop  calculations.  If  key  2  is  depressed,  the  variable  NVBL 
(number  of  response  variables),  is  reset  to  the  variable  IV  (the  number 
of  the  last  response  variable  on  which  analysis  has  been  completed). 
Control  is  then  returned  to  ANOT. 


OUTPUT 


This  subroutine  is  to  display  to  the  user  the  direct  access  units 
16  and  I?  on  which  all  output  was  placed.  Since  a  normal  printout  page 
is,  131  characters  wide  and  the  maximum  number  of  characters  on  the 

t 

i  i 

screen  is  74  characters,  unit  16  contains  the  left  side  of  a  page  and 

statements  15  -  17  control  the  displayiwhilc  unit  17  contains  the  right 

Iside  of  a  page  and  statements  25  -  27  control  'its  display. 

\  \  ■' 

The  user  may  see  his  output  by  using  three  program  function  keys: 

r  • 

key  1  alternates  the  portion  of  the  current  page,  k<jjy  2  increments  the 
page  number,  and  key  3  decrements  the  page  number. 
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When  the  user  finishes  with  his  univariate  results  he  determines 
where  control  is  passed  by  the  use  of  the  program  function  keys:  if 
he  wants  to  continue  to  his  multivariate  results,  he  presses  key  4  which 
passes  control  to  subroutine  DELETE;  if  he  wants  to  see  and  edit  his 
data,  he  presses  key  5  which  passes  control  to  the  1001  statement  of 
the  INPUT  subroutine;-  *  if  lie  wants  to  sec  plots  of  his  data,  he  presses 
key  6  which  passes  control  to  the  subroutine  PLOT. 

When  the  user  finishes  with  his  multivariate  results,  he  is  asked 
to  depress  program  function  key  31  to  terminate  the  program  or  key  4 
to  perform  another  multivariate  analysis.  Although  the  option  is  not 
mentioned  on  the  display,  the  user  may  do  exactly  as  he  could  when  he 
completed  the  univariate  passes;  i.e.,  key  5. will  pass  control  to  the 
1001  statement  of  INPUT  and  key  6  will  pass -control  to  PLOT. 

PLOT 

This  subroutine  allows  the  user  to  see  his  data  of  any  two  response 
variables  plotted.  In  the  general  instructions,  he  is  told  to  indicate 
combination  of  all  levels  of  a  factor  by  "0".  Thus,  when  he  gives  the 
set  of  points  which  he  wishes  to  see 

2,2  indicates  the  (2,2)  cell 

0,4  indicates  the  4th  column 

3,0  indicates  the  3rd  row 

0,0  indicates  all  data 

if  the  rows  arc  factor  1.  A  check  is  m;  c  to  insure  that  the  user 
has  requested  a  "legal"  display;  i.e.,  if  the  4th  column  does  not 

% 

- - 
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exist  for  his  data  the  user  will  be  given  ah  error  message  and  asked  to 
reenter  his  data.  The  user  enters  his  two  variable  names,  and  once  again 
a  check  is  made  on  whether  the  names  match  those  given  in  INPUT. 

Loop  75  scans  the  raw  data  on  NW1,  picks  out  the  appropriate  points, 
and  begins  calculations  of  the  means  and  standard  deviations  for  the 
two  variables.  Immediately  after  the  75  loop,  if  the  particular  plot 
has  one  or  fewer  points,  the  user  is  given  an  error  message  and  is 
asked  to  reenter  a  new' set  of  levels.  The  upper  and  lower  limits  for 
each  variable  are  calculated  as  the  mean  +_  three  sigma  limits.* 

The  plot  displays  the  record  number  of  the  points.  Thus,  the 
user  can  quickly  pick  out  which  records  he  is  seeing. 

Once  the  user  has  seen  the  plot,  control  of  the  program  depends 
upon  his  choice  of  the  program  function  keys:  key  1  will  allow  him  to 
see  additional  plots,  key  5  will  allow  him  to  return  to  the  1001 
statement  of  INPUT  to  see  and  edit  his  data;  and  key  29  will  allow  him 
to  return  to  *  ^lw-ious  univai'iate  analysis.  As  always,  key  50  will 
allow  he  user  to  rcsto.  ..  the  program  and  key  31  will  allow  him  to 
t*  it  mate  the  program. 

DELETE 

This  subroutine  is  called  from  the  root  when  the  user  has  decided 
to  continue  with  the  multivariate  option.  Initially,  the  variable 
MULT  is  set  to  0  to  indicate  the  multivariate  pass  in  future  subroutines. 

Each  response  variable  name  is  displayed,  and  the  user  is  asked 
to  press  program  function  key  1  to  include  the  variable  or  key  2  to 
delete  the  variable.  If  key  1  is. depressed,  LUV (IK)  =  IK,  MNLUV(IK)  =  IK, 
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and  TNAM(IK)  =  VNAM('IK).  If  key  2  is  depressed,  LUV(IK)  =  0, 

MNLUV(IK)  =  0,  TNAM(IK)  =  BLANK,  and  the  name  is  erased  from  the  screen. 
If  the  user,  is  satisfied  with  the  final  list,  beginning  with  statement 
50  the  TNAM  array  is  then  compressed  so  that  it  contains  only  the 
names  of  the  response  variables  to  be  included  in  the  multivariate 
analysis.  Control  is  then  returned  to  the  root. 

MAINB 

This  subroutine  is  not  called  until  the  multivariate  option  is 
entered.  NW2  is  backspaced  one  record,  the  incidence  matrix  NN1  is 
read,  and  the  NW2  is  rewound.  DSSCP  is  read,  and  the  NN,  SUBT,  DS3, 
and  DSQU  are  all  bypassed  by  dummy  read  statements.  MAINB  then  uses 
the  results  from  ANOT  to  build  the  input  for- GENHE  which  generates  the 
H  and  E  matrices  (see  Section  3.2)..  Once  control  is  returned  from 
GENHE,  MAINB  stores  the  results  on  NW2. 

GENHE 

This  subroutine  uses  the  adjusted  row  effect  estimates,  adjusted 
row  totals,  adjusted  column  effect  estimates,  adjusted  column  totals, 
the  subtotal  matrices,  and  the  incidence  matrix  to  compute  the 
elements  of  the  H  matrices  (sums  of  squares  and  pi’oduc^s  for  hypotheses) 
and  the  E  matrix  (sums  of  squares  and  products  for  error) . 

MAINE 

Here  the  data  which  will  be  needed  by  TEMAT  are  read  from  NW2. 

This  subroutine  also  controls  the  intermediate  output  of  results. 


Before  control  is  finally  returned  to  the  r.oot,  MAINE  exchanges  the 
values  of  NVBL  and  NLUV  so  that  subsequent  multivariate  passes  can 
have  the  original  value  of  NVBL.  This  allows  the  user  to  use  several 
different  combinations  of  variables. 

TEMAT 

See  Section  3.2. 

TRI 

This  subroutine  obtains  the  triangular  matrix  T  such  that* 

TT'  =.A  where  A  is  a  symmetric  Gramian  matrix.  If  A  is  singular,  T 
will  be  rectangular  such  that  the  number  of  columns  is  equal  to  the 
rank  of  A. 

FACE 

This  subroutine  is  called  from  TEMAT  and  it  obtains  the  largest 
root  and  associated  eigenvector  of  a  symmctrix  matrix. 

WRIR 

This  subroutine  is  called'  from  both  MAINB  and  TEMAT.  WRIR  writes 
the  symmetric  matrices  or  vectors.  The  argument  NN  =  0  indicates 
vectors  and  NN  =  1  indicates  a  symmetric  matrix.  Row  and  column 
numbers  are  replaced  by  names  given  to  response  variables  (VNAM) . 


INSLD 


This  subroutine  is  called  by  EQSYM,  MAINB,  and  TEMAT.  INSLD 
obtains  the  inverse  or  conditional  inverse  of  a  Gramian  matrix.  It 
also  obtains  stepwise  log-determinants,  but  if  the  matrix  is  singular 
these  are  just  dummy  values. 

CHIX,  GAMX,  and  YORMX 

Seo  Section  3.3. 


ELGGM 

This  subroutine  evaluates  log  r(x). 

v 

BUILD 

This  program  is  for  the  user  of  SPOOK  wlio  has  voluminous  data 
which  are  punched  on  cards.  The  user  runs  this  batch  program,  and 
the  needed  data  are  stored  on  direct  access  unit  38  from  where  SPOOK 
obtains  them. 

Input  cards  must  be  prepared  as  follows: 

Card  1:  Title:  up  to  60  alphameric  characters  beginning  in 

column  1 

Card  2:  Variable  Designation  and  Transformations  (see  trans¬ 

formation  codes  under  INPUT;  blanks  will  be  read  as 
Col  1  blank 

Col  2-3  number  of  response  variables  (<_10) 


Col  4-7 


4-character  name  for  variable  1 
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Card  3: 


Cards  4, 


Col  8  transformation  code  for  variable  1 
Col  9-12  4-character  name  for  variable  2 
Col  13  transformation  code  for  variable  2 


*  Col  49-52  .4-character  name  for  variable  10 
Col  53  transformation  code  for  variable  10 
Col  5  number  of  variable  FORMAT  cards  (1-5) 
remaining  columns  may  be  blank  or  not;  they  will  be 
ignored 

:  One  card  for  each  of  the  two  factors 
Col  1  blank 

Col  2-5  4-character  name  for  factor 

Col  6-8  blank 

Col  9-10  number  of  levels  (■  <_1 2 ) 

Col  11  ignored  by  program;  may  or  may  not  be 
filled 

Col  12-14  "end  code"  for  level  1  (see .explanation 
under  INPUT) 

Col  15  ignored 

•  Col  16-18  "end  code"  for  level  2 

«  « 

« 

Col  55  ignored 

Col  56- 5S  "end  code"  for  level  12 


■  72 

Cards  6-10:  Variable  FORMAT  cards  (number  of  cards  must  correspond 
to  Col  5  of  card  3) ;  state  the  format  for  each  record 
in  usual  FORTRAN  FORMAT  statement  form;  use  all  -80 
columns  of  each  card;  start  the  first  (or  only)  card 
with  (,  i.e.,  omit  the  word  FORMAT;  end  the  statement 
with  );  the  factor  levels  are  read  first;  hence,  if 
the  factor  levels  do  not  precede  the  variable  responses, 
use  T  format. 

Remaining  cards  are  the  data  cards. 

The  output  from  this  program  is  a  list  of  the  raw  data  as  it 
will  appear  on  the  console  when  SPOOK  is  entered. 
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Overlay  Structure 


ROOT 

COMPORT 


MAINA  OUTPUT 

PLOT 

DELETE 

INSLD 

|- — 1 — 1 

COMP LOT 

LTERM 
•  SLITO 

INPUT  PMATX 

• 

SLITOT 

WRIR 

MAINC  MAINB  MAINE 
ANOT  GENHE  TEMAT 


EQSYM  INTER  TRI  CHIX  FACE ' 

GAMX 


YORMX  ELGGM 
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Job  Control  Cards  for  the  Overlay  Structure 

ENTRY  MAIN' 

OVERLAY  ONE . 

INSERT  MAINA 
OVERLAY.  TWO- 
INSERT  INPUT 
OVERLAY  TWO 
INSERT  PMATX 
OVERLAY  ONE 
INSERT  OUTPUT 
OVERLAY  ONE 
INSERT  PLOT, COMP LOT 
OVERLAY  ONE 

INSERT  DELETE  .  •  .  ■  • . 

•  OVERLAY  ONE 

I NSERT  I N  SLD , LTERM , S  L I TO , S L I TOT , WH I R 

OVERLAY  TWO 

INSERT  MAINC,ANOT 

OVERLAY  THREE 

INSERT  EQSYM 

OVERLAY  THREE 

INSERT  INTER 

OVERLAY  TWO 

INSERT  MAI  NB,  GEN!  IE 

OVERLAY  TWO 
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FORTRAN  IV  G  LEVEL  IS 


"MIN 


DATE  ■  71253 


13/23/'.' <. 


This  PROGRAM  --  BUILD  ~  IS  OESltNEO  TO  ALLOW  THE  USER 
OF  SPOOK  TC  ENTER  HIS  DATA  THRU  BATCH  MODE. 

THE  CATA  IS  STORED  ON  DiRECT  ACCESS  UNIT  38 
FRCM  WHFRE  SPOOK  OBTAINS  IT. 


Cl  PENSION  TTLI151  .VNAHUOi  ,FNAM<  2)  ,NLVU2  » .NENOI  2, 12 1.  LEVEL!  2 ,12 1 , 
INT  RANI  10  1 ,  1SET  (2  ) »FHTt  100 )  .XC 101 
CFFINE  FILE  38 1510, 80, L,  IREC 3 1 
N3  =  38 

RE  A0I5 , 25 )  t  T  Tl.  1 1 1 « l»  1, 15  )' 

Rl AO  1 5 , 26 1  NVBLt  IVNAM(I)  ,NTRAN(  I),  I  *1,10) 

3  RC  Ail  1 5*2  7 1NFNT 
CO  Hi  '  J-l  *2 

rl  A.)  1 5, 28 1 FNAMI J  )  ,NNN,  (NENOI  J,  I  )  ,1  =  1  ,NAN> 

3  NLVL 1 2 1*NNN 
CO  >(A<,  K  =  l,2 
JJHLVLIK) 

IFMENCIK.JJI)  9,?9,<}9‘>,BA4 
COM  HUE 

r:i  .ns  lmn=i*jj 

NCKi)(K,LMM  =  LMN 
3  COM! HUE 
1  COM  INUE 
NFPT  =  NFMT»  20 

REAOI5,29l(FMT(ll«l»l,NFHTI 

IRK-.  3=^02 

V.K  I  T  t  ( M3  » IRE  C3)TTl,VNAM,FKAK,  NLVL.NENl),  LEVEL,  NTRAN.NVHL 
IR  t  C3=  1 

Wfi  I T  Et  6  *58111 FLAP!  !  I ,  !«1 ,2. 1 ,  I  VNAHt  [)  ,1  =  1,5) 
wR!TC(N3MKEC3,A8i!(FNA*4in,I=L,2),(VO»M(  !)  ,1*1,61 
IT  (NVBL.GT.51WRITEIN3'  IP.EC3.484  1  (VNAMI  I  ),  1  =  6,10) 
inNV3L.GT.51  Wft  ITEI  6,58AM  VNAMI  |  ),I=o,  1U) 

NSLBJ’O 

)  KEA0(5,FPT,EN0=2011IISETIII»I»1  ,2)  ,IX!K),K=1  ,NVl;L) 

NSUO  J  =  NSUt)J  ♦  1 

WR1THN3'  IR£C3,396)NSUUJ,  I  SETHI,  I  SET  U» ,  (  X  (  Kw  1  ,K0=i,NV8Ll 
HP.  I T  E I  6 , 4961  NSUBJ  ,  I  SET  ( 1 1 ,  t  St  T  I  2  I ,  I  X!  KC) ,  Kl!=  1  ,NV'1L  1 

CO  TO  200 
[  1PEC3=510 

WR  IT  E IN3 ' I  RE C 3  IN SUB J 
•  STOP 

5  FORMAT (15AA1 

j'  FORM  AT  ( I  3,  10  ( A  A ,  1 1 )  1 

f  FORMAT IAX, U ) 

!  FORM At IlXfA4,2X,l3,12(lX,I31) 

)  FORMAT  I20AA) 

,  rORMAT  !3l3,lP5EI2.3/9XflP5E12.3l 
FORMATIAX, 2AA,3(AX,AA,AX1 1 
,  FORMAT  1 1 2X ,5 I4X, A4 ,4X 1  I 
>  FORMAT  I  IriO  ,  3 11 » 1P5E12.  3/lH0,9X«  IP5E12.3I 
1  FORMAT (1H1 ,AX,2AA,5(AX.AA, AX  I  1 
,  FORMAT  (1H0,12X,5(AX,AA  ,AX)  1 
(NO 


t-ORTfUN'  IV  G  LEVEL  19  tUIN  DATE  »  7 12 53  1  3/2 A /I  7 

i  ' 

,1001  CGPHCN  N» I OVLY  *  I  TYPE, TTL 1 15 ) , VNAHI 10 )  ,  FfiAXI  2  1 1 M  U  V  L*  ( 2  )»NSN0I2  >12). 

lLEVELCM2),fMA,NCA,MIUl,NCB,  JABUf)  ,Nl,H2,NVBl,M‘ACr»f<G12iHULl* 
?.NSUI1J,HLII>/  , M<1  ,  ,NT *  1.5EG  ,)ll  2,  N.J2.,  KUUNT ,NDI  AG,  lttrf.1,  IREC2,  1PEC.3 

3«N IRANI  loi  ,  TUMI  10)  iLlIvnoi  ,KNLUV(li>) 

0002  r.EHM:  III!  1M  1  530,  6\),  E ,  IRcC  1 ) ,  1711980,  80, 1  .  IREC2 1  * 

1381510, OC, L, IRLC3) 

0003  MUll  -  l 

CGOA  1  CAU  MAINA 

O005  lF(M.r0.6)G0  TC  5 

0006  II  ('I.E0.2.OG0  TO  3 

CCG7  CAU  MAtKC 

COO 8  ir-(N.C0.3.))f.C  TC  I 

O009  inmiLT.eo.oic.o  to  t 

OHIO  3  CALL  OUTPUT 

1011  ll-IN.K. 5. EQ,30if.O  TO  ) 

0012  IF  (N.f.Of  9 1  GO  TO  4 

Uin  lFIN.LC.UCO  TO  5 

CO  1 4  5  CALL  PLOT 

C01  5  IF  If).!  C.79K.C  TC-  3 

(.016  HIM.*  0'*7u>OI',*.E<J.5)GG  TO  l 

0017  A  CAM.  OH.SII- 

LU  1  9  ir<N,l:0.30)HLi.T»l 

0015  GO  TC  1 

CU2C  7  CALL  MAI  Ml 

0021  CALL  MAINE 

0022  GO  TO  3 

1023  5  STOP  ’  1 

CO  2  A  CNC 


'FORTRAN  IV  G  LEVEL  19 


■RRTWK - 


'  OATE  -'71255'  "  13/2A/17 


C001 

0002 


0003 

OOOA 

0005 

0006 

0007 

OOCtl 

0009 

0010 

0011 

0012 

0013 

0019 

C015 

oeu 


SUBROUTINE  It  A I  S'A"  "  . 

COMMON  H*IOVLY*lTYI*E«TTt.415l#VNAHtlO)  »  FNAM12  )  #  NtVt  (2  WNEN0I2 , 12 )  , 
1  LEVEL  (2.  12l,.!.R4,NCa,lir.n;i,Cfe,JAa<B>,Nl,N2,NVfiL,hFACT»H612,HUL  T, 
2NSU0  J  tNLUV  ri«i.NU2,NT,lSEQ,NIZ,fU7,K0UNT,N0IAG,  IRECli  IREC2,  IREC3 
3  iNTRAM  (101. TVIAHt  101.LUVI  101.MNLUVI  10)  , 

NJ  *=1 
NJ«2 

IE  IHULT. EQ.O. AND.N.Nn.9 1 GO  TO  902 
NM 1  -  1 1 
NU2  =  12 
950'  ISEO  *  0 
IPAC-O 

CALL  INPUT  . . 

•  IF1N.E0.6.0R.N.E0.291G0  70  99 
902  CALL  PHAIX(RI.IM-) 

110  Nil  =  NI 
NJ7.  *  NJ 
99  RETURN 
ENC 
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fortran  tv  c  u.vrt  i*> 


INPUT  OAT  I  r.  71253  13/24/17 


001)1 

000/ 

0003 


0004 

0005 
0006 
0007 
000  0 
(00<5 
00 1  (! 
con 

u012 
0013 
0014 
0015 
UOIA 
0017 
(.010 
0015 
Ou20 
C021 
(.022 
0023 
(  024 
0025 
CC26 
(.027 
('•020 
(-025 
OO  30 
0031 
0032 
0033 


f.t)(»  mu  !Nt  incut 

LXliKNAL  CUM  ,  IC.It  I  Nr 

CUHIHKI  N,I(',VLY,1  TYPC.TTLUSl.VNAMllO)  ,I!iAM(21,NlVLm,NfNO(2,121, 
llEVf  LI  2,12  ),Ni'.M;CA,NR&,NCB,  JAitlftl  ,H1,N2,NVBL,(,FACT.NG12,MUL'T, 
2NSUU  J,  NUJV  ,Ml,WI2,Nr,lSEC1NI2,N3»,KOU,lU.'(01tG,lkECl,  I ‘•"EC  2,  l^fCi 
3,NTrtAN(10)  ,TNAF(  101  ,LUVt  10  I  *Hfil.UV(  10) 

OIP.ENf.ION  SETUPU3),  lSET(l3),TEXT(15),X(lt.),T=XT2(UH, 

nrxi3(2«) 

EOUlVALE“*F  (SETUP  1 1 1 , 1  SF.T  1 1 1  ) ,  ( T6XT2I  1)  ,Tl-  XT  3(11 1 
DOUBLE  .Cl  SION  GNP,0N(12) 

DATA  Cf ! 7 E/ ' H * / 

CAU  P.i,ANK/'  '/ 

DATA  HACK/’ HACK*  / 

DATA  CROP/ 'DROP'/ 

CALL  CMHIIICSI/Ul 
(  ALL  GCCCDIECB  I.M  I 
NC2-72 

I*  A  SK.  1=  1 61 061 2730 
HASP  2-  10  7  374  1  p 27 
I1ASO“?<>&435450 
PA  SK  4  =  1644  16 71  74 
HASKp-  536871.51  5 
K3*3  II 
N  T  =  1  2 
Ml  *60 
NC  AC  1  =  2 
Ml  12-  • 

M)  1  A(>-  14 
NO  US  sn 
(•.(111  --OT), 

371  FwP'lAT  ( 1  AAA  I 

IHM.EI..51CU  TO  lOol 
CAU.  (.CPFKSMASKl  ,PHHT) 

111  hi  Ml  NH 1 
•  Pi- hi M!  NT 
211  F'lFMAI  (lpA4) 

IF  Lit-  1 
C 


C 

(  034  NS  T  2:0=  l 

0035  203  CALL  GPKASI1001 

(036  CALI.  GKOPLYI  •  ',2.O,t4«0> 

0037  CALI  GKOPLYI  '  • ,  20,  t4(>!)) 

(.038  CALL  GKOPLYI 'IMIS  PHUf.PAP  IS  OISIGNi-O  Til  PERFORM  AN  ANALYSIS  OF  IR 

1  IN'  GUI  Aft  OA I A  .  '  ,  A  6 ,  L  400 ) 

L039  CALL  GKOPLYI  'YCU  PAY  IIAVF  A  MAXIMUM  OF  10  RESPONSE  VARIABLES  AND  A 

2  .MAXIMUM  ill'  ,64,  C‘,00) 

(.040  CALI.  GKOPLYI '2  rACTCIPS.  YOUR  DESIGN  MAY  ftp  OOITt  UNBALANCED,  ANU 

3 Vt) (01. 1;  f.tl  I.S'  ,64,  r.4001 

0041  CAU  OROPLYI  'MAY  BE  MISSING.  TRANSFORMATIONS  CAN  BE  MADE.  FOR  EA 

4CK  PAIR  OT',  63,64001 

0042  CAU  1, 1..)PI  YI  •FACTORS,  AN  ANALYSIS  OF  VARIANCE  IS  PEP  FORMED  FOP  fcAC 

51-  lttSP':Nf.l:',t3,r.4,)0) 

0043  CAU  GKOPI  Y(  • VARIABLE,  S  F.  PAR  ATFL  Y.  ONCE  YOU  SEE  IIILSr  Ull  IVAP.  I  AT  k 

lAIIAlYSfS  YOU  ' ,  I'j  ,f,400 ) 

CALC  GKOPLYI 'HILL  III:  GIVEN  THE  OPPORTUNITY  TO  SEE  PLOTS  OF  YOUR  OA 


0044 
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FORTRAN  IV  G  LEVEL  19  INPUT  DATE  *  71.253  13/24/17 

1TA  AND  THF»,63,tAOGJ 

0045  CALL  GROPLYI  'RAW  OATA  AGAIN*  THUS,  YOU  WILL  ee  ABLE  TC  EDIT  YOUR 

1CATA  AND  KUN*,65,64GGi 

0046  CALL  CROi'LY  I  'THE  ANALYSES  AGA  IN.  • ,  19,  £400  I 

C-047  CALL  GROPLYI  •  »,2«J,C4cHl 

«048  CALL  GROPLYI 'TO  BEGIN  YOU  MUST  ANSWER  QUESTIONS  BY  USING  TH,‘  TYP:  w 

7RITCK' ,58,64C0) 

0045  CALL  GROPLYI 'KEYOOARD  DIRECTLY.  IN  FRONT  OF  YOU,  TIi  SIGNAL  YOUR  0> 

8MPIETI0N*  ,61  ,6400) 

LOGO  call  GROPLYI  *CF  QUESTIONS,  FIRST  DEPRESS  THE  "ALT'*  KEY,  A  NO  WI>IL> 

'  5E.CLD  ING  IT',  63,  £400) 

0051  CALL  GROPLYI 'GOWN,  DEPRESS  THE  "5"  KEY.  THIS  StwUENCE  WILL  Ul: 

lPf  *, 55,64uOI 

u052  CALL  GRUPLYI 'REFERREO  TO  AS  "EBB".  ONCE  YOU  ANSWER  QUESTIONS,  Tin 

i  ANSWERS  *,61, SACO  1 

0053  CALL  GROPLYI 'WILL  fit  DISPLAYED  BACK  TO  YOU.  IF  YOU  ARC-  Nil  SAT  I  sr 

1 1  EG,  °RfcSS  • » 63 ,64m;) 

0054  CAtL  GROPLYI 'KEY  2  TO  REENTER  DATA;  (ITHERWI  SE ,  THE  PROGRAM  WILL  C 

lflNTINUE  ',61 ,6400) 

L055  CAIL  GRUPLYI 'BY  YOUR  PRESSING  ANY  KEY. • ,25,6400) 

0056  ■  CALL  GRUPLYI*  1,6400) 

CJ57  CALL  GROPLYI 'AT  Amy  TIME  YOU  "AY  RESTART  BY  PRESSING  KEY  3<  uA  1 

IMINATE  OY' ,62,6400) 

LC  50  CALL  GROPLYI 'PRESSING  KEY  31 .  ' ,  16, 6400 ) 

0  '59  CALL  GROPLYI'  •  ,20,C4I")» 

Lvj60  CALL  GRUPLYI'  1,640)1 

0061  CAIL  GROPLYI 'CAUTION:  DO  HOT  TRY  TO  SPECD  UP  THE  PROGRAM  SY  ADS  ,! 

IP ING • , 57 , 6400) 

0062  -  CALL  GROPLYI 'QUESTIONS  BEFORE  THEY  ARE  ASKED.  THIS  WILL  ONLY  CRya 

1TE  PROBLEMS. ',65,6401-.) 


1)06  J 

CAIL  GROPLYI*  ',1,640J) 

«ji)64 

CALL  GROPLYI •  *,1,6406) 

0065 

CALI  GROPLYI* IF  YOU  HAVE 

PREVIOUSLY  USED  THIS  PkIiGPAM  I’.R  ENURE  3  Y 

1  CUR  DATA'  ,61  ,64(  ..| 

0)66 

■CALL  GP.0P1Y1  •  THROUGH  BATCH 

Hi.)*;,  PRESS  KEY  2  TO  SEC  YOUH  I)/.TA.*,4«> 

1 , 64VO 1 

JC67 

CALL  GROPLYI*  *,1,6400) 

■ 

0060 

CALL  GROPLYI 'PRESS  KEY  1 

TC 

PROCEED. ' , 23, 640 j) 

0.)oS 

205  CALL  GWAIT 

, 

00  70 

IE  IN  .10.  TO)  GU  TC  205 

01)71 

IF  IN.EQ.3H  GG  TO  210 

OG  72 

IF  (*I.EC.2)G(;  TC  )•  ■  1 

•r.)  73 

If  (N  .60.  It  GG  TU  206 

‘ 

GO?  4 

GU  TG  205 

r- 

*« 

0075 

L 

206  CAL’.  GERAS!  100) 

GC  76 

NS  TP  P'2 

./•j7  7 

CAtL  GROPLYI  * 

'  ,20  ,.64(101 

DC  78. 

CALL  GRUPLYI* 

* , 20, 64U0) 

OC  75 

CAIL  GROPLYI* IF  YOU  DESIRE 

TO  HAVE  A  TITLE  TO  HEAD  YOUR  1JUTPU1  ,  EN 

ITER  IT  NOW. • ,64,6400) 

* 

00  80 

CA! L  GROPLY I  *  1 f  YOU  00  NCT 

PCS  lU  A  TITLE,  LEAVE  T  Hr.  filGPO*  SE  W- 

<  2  BLANK.  •  ,41. ,  6400) 

811  Call  gwait 

IF  1 1  TYPE. Ht.  31  Gt'i  Tf  402 
212  CALL  GRRPLY I T1 L , NC ) 


UG  0 1 
00  62 
0003 
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INPUT 


OATS  =  71253 


13/24/1 7 


00  6  A 
0085 
0086 
0087 
0088 
0085 
0090 

0091 

GC92 

0093 

0094 

0095 

0096 

0057 

OC98 

0095 

OlOC 

0101 

0102 

0102 

0104 

0105 

0106 

0107 

0108 

0105 

0110 

0111 
0112 
0112 
ol  14 
0115 
(•life 

0117 
0118 
0U5 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
<-127 
0120 
0125 
0130 
C131 
0132 
0133 
Cl  34 
<  135 
0136 


CALL  GROPLY! •  •, 20,04001 

CALL  GROPLY ( 'YCUR  TITLE  IS' ,13,04001 
234  CALL  GROPLY! TTL.NC, 04001  • 

214  CALL  GMA1T 
IFIN.EQ.2)  GC  TC  212 
IP  IN.EU.30)  GC  TO  203 
IF  (N.E0.311  GO  TO  210 

213  CALL  GERAS! 100! 

NS1uP=3 

CALL  GROPlY!  •  •  ,2'J,04Oi-> 

CALL  GROPLY!'.  ',20,04Cul 

208  CAIL  GROPLY! 'HCW  MANY  RESPONSE  VARIABLES  00  YOU  HAVE?1  ,40,04'/*  I 
812  ‘CALI.  GwAIT 

IF  II fYPE'.N'E. 31G0  TU  402 
CALL  XOlANKI TEXT  ,NC) 

297  CALL  GRRPLY! 1EXT  ,NC I 
!NCL-X=0 

CAiL  I  NX!  TEXT,  INDEX,  NC,DNP,  0401 ) 

NVGL  =  UNPf.i)l 
WF!  TEINCUM,  15C1NVP.L 

15u  FORMAT!' Ytll  HAVE  • ,  1 3  *  *  RESPONSE  VAR  I  ABLES,  '  ,28X1 
CALL  Ff  ICl- ( T  T.XT2  ,NCF  ,  0400  1 

CALL  GROPLY!  •  •  ,2O,04H'l) 

CALL  GROPLY!  TEXT2.NCF, C4CC ) 

IF  1  1  .LE.  NV8L  .ANO.  NVBL  ,LE.l::l  GO  TO  21  <- 
CALL  GROPLY!  •  *,2o, 04u.il 

CALL  GROPLYCThE  NUMBER  GF  RESPONSE  VARIABLES  MUST  BE  AT  LEAST  1  A 
1N0  NO' ,5a,04C0» 

CALL  GROPLY! 'GREATER  THAN  10.  PLEASE  REENTER. ',  33  ,  C4i  I 
GC.  TO  8)2 
204  CALL  GR4IT 

IF  IN.E0.30  1  GO  TO  2<i3 
IF  IN.tU.31)  GO  TO  210 
•  IF'  ( N.  £0.2  I  GG  TO  213 

2U1  CALL  GERAS! ltd) 

NS  T  l-F -4 

GO  215  J=l,NVlH 
217  WR  1  T  £  (  N'T ,  2  1 6  1 J 

216  format i ' enter  a  four  letter  name  for  response  vap!able',13,iixi 

BACKSPACE  NT 
RE  AOINT , 21 1  1  TEXT 

CALI  GROPLY! «  *,20,0400) 

CALI  GROPLY!  TEXT, NC, 04i,0) 

803  CAIL  GUAIT 

IF  ( I  TYPL'.NE.  21GG  TC  40? 

CAIL  GRKPLY ! TEXT ,NCI 
CALL  GERAS ( 2 ) 

215  VNAM  ( J I  =  Tfxr(l) 

IF  (NVBUEC.lO)  GO  TO  157 
I A  Bf)  VI,  If  1 

00  153  1  *  I A , 10  •  , 

153  VNAMI1  )  =  !ILANK 

157  WR !1  El NOLH, 155)1 VNAM! ! 1, 1=1, 10) 

155  FORMAT  ( 10 !  2X  ,A4  )‘) 
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0137 

0138 

0139  ‘ 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 
0151 
0152 
C 1  S3 
0154 
0155 
0156 
0157 
0156 
ul59 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0161) 

Cl  69 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
Cl  75 

oiec 

oiei 

0182 

0183 

0184 

0185 

C 166 
0187 


IV  G  LEVEL  19 


INPUT  '  DATE  *  71253  '  13/24/17 


CALL  FETCH! TEXT2 iNCF  « £400) 

CALL  GROPLYI •  *,20,C4OO) 

CALL  GROPLYI'  "  '•  '  ',20,64001 

CALL  GROPLYI'YCUR  NAMES  ARE'  « 14, £400  1 
CALL  GROPLYI T£XT2,NCF,S4C0> 

160  CALL  GWAIT 

IF  ( N.EQ.301  GO  TO  203 
IF  (N.EU.31)  GO  TO  210 
IF  (N.EQ.2)  GO  TC  201 
C 

224  CALL  CERASI100) 

NSTFP*5 

CALL  GR0PL Y<  '  • ,20,6400) 

•CALL  GROPLYI'FCR  EACH  RESPONSE  VARIABLE  ENTER  A  TRANSFORMATION  COO 
IE  FROM  THE', 63, 64001 
CALL  GROPLYI 'FOLLOWING  L I  ST: ', 15, 64001 
CALC  GROPLYI'  ',20 ,6401/1 

CALL  GROPLYI  •  CODE  TRANSFORMAT  ION'  ,25,640!'.) 


CALL  GROPLYI*  u,l 
CALI.  GROPLYI*  2 
CALL  GROPLYI •  3 
CALL  GROPLYI'  4 
CALL  GROPLYI  •  5 
CALL  GROPLYI'  6 
CALL  GROPLYI • 


NO  TRANSFORMATION', 29, 64uO) 

LCGEIX1  I  XX.  1 '  ,27,6401!) 

LOGO  1 1  +  X)  I  X>-  1 » •  ,3l.,64oO) 

SORT  (X  I  ,2a,  6410) 

1/X  |  X>Ol  *,23,641,0) 

ARCS  IN  ( 2X-1  I  1 0< X <  l ) '  ,  34,  64i  'i ) 

VARIANCE-STABILIZING  TRANSFORMATION  FOR  P 


1R0F0RT IONS ',63, 64001 

CALL  GRO°LY ( '  7  AVAILABLE  (N0«:  NO  TR ANSFORMAT  ION ) ' ,46, 


1640J) 

CALL  GROPLYI'  ',20,6400) 


CALL  GROPLYI 'SEPARATE  ACL  ANSWERS  BY  COMMAS, ' ,31 ,6400) 
CALL  GROPLYI*  *,20,6400) 

804  CALL  GHAIT 

IFIITYPE.NE.31G0  TO  402 
290  CALL  GRRPLYI TEXT, NCI 


■CALL  INK(TEXT,NC,5,IER,ONtl»,DNI2),DNI3),ONI4| ,0N(5) ) 
IF! IER.NE.ulGO  TO  401 
IF IMV8L, LE, 5 )GG  TO  219 

CALL  INK (TEXT,MC ,5, IER.ONI 6) ,DN( 7) ,DNt 8) ,ONI 9) ,DNI 10)) 
IF  t  I  ERoNE,U  )G0  TO  401 
219  CONTINUE 

GO  173  IJK=1,10 

173  NTRANt I JKI *DN( IJKI 
WRITEINOUM  *55)1  VNAMI  I),  I>=1,  10) 

CALL  FETCH!, EXT2 ,NCF, 64001 
CALL  GROPl. Y I  TEXT  2 ,NCF  ,64001 

174  HR ITE IN CUM ,175)(NTRAN(M) ,  H»l,NV8L  1 

175  FORMAT  I lu( 14 ,2X ) I 

CALL  FETCHITEXT2.NCF, 64001 
CALL  GR0PLY(TEXT2,NCF,C400) 

00  298  N= 1 , NVftl 

IF  INTRANINI.GE.O  .AND.  NTR*NIM),LE. 7)  GO  TO  298 


ViB  I  TEINT  ,  299  )NTR  AN!  M) 

299  FORMAT  I '  A  TR  ANSFORMAT  IGN  OF', 13,'  IS  ILLEGAL.  REENTER  ALL  DATA.', 


17X1 

BACKSPACE  M 
RE  AO  (NT ,  21 1 )  TEXT- 
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Fortran 

oies 

0185 

0190 

019.1 

C192 

0193 

0194 

0195 

0156 

'  0197 
C158 
0195 
0200 
0201 
0202 
0203 
0204 
0205 
02C6 
0207 
0206 
0205 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 

0221 
0222 
0223 
0224 
0225 
0226 
0227 
0220 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236  . 
0237 
0238 
0239 
0240 


IV  G  LEVEL  19 


INPU1 


DATE  •  71253  13/24/17 


CALL  GRDPLYI TEXT «NC, £400 ) 
CA1 L  GfiOPLYI • 

GO  10' 804 
290  CONTINUE 
169  CALL  CKAIT 

IF  IN.EQ.21  GO  TO  224 
IF  IN.  EG.  30  I  GO  TO  203 
IF  IN. 10. 311  GO  TO  220 
237  GO  TC  (225,6601, IFLH 
C 

225’  CALL  GERAS!  100 1 


*  ►20,  C4001 


NSTFP--7 
no  226  J-1,2 
229  imiTk(liCUM.227IJ 

227  FORMAT!* ENTER  A  FOUR  LETTER  NAME  FOR  F ACTOR • , I  3, 22X 1 
CALL  FEIf.HIT  EXT2  ,HCF,  £400 ) 

CALL  GRDPLYI'  ',20, £4001 

CALL  GROI’l  Y(  TEXT2.NCF  ,£4C0) 

805  CALL  GUA1T 

IF  ( I  lYi’F.flf.  3 1  GO  TO  402 
CALL  GRRFLYI TEXT ,NC) 

CAIL  GF  is  AS  (2  1 
226  FNAM (  J  1  ••  T (■  XT  (  1 1 

LR  1  f  t  (  NiiilM , 3 26 )FNAM(  1 1,FNAM(2) 

326  FORMAT (? (2X , A41 ,46X1 

CALL  F I  f  M  T  t X T 2  ,KCF  , £40C  1 

CALL  GRiM’i  V  C  ’  ',20,64001 

(.All.  GnOf  l  Y(  •  •  ,2<’,  £400 1 

(.All.  Ul.ii.'LY  (  •  YCUR  NAMES  ARE*  ,  14,  £4001 
CALI  GRPf’LY (  TF.XT2  ,KCF «£4 GO ! 

327  CAIL  GUAM 

IF  IN.EO.301  GO  TO  203 
IF  IN. CO. 311  GO  TO  210 
IF  IN. LO. 21  GO  TO  225 

228 'CALI.  GERAS!  1001 
NSTEP=8 

CALL  GRDPLYI •  *  ' ,20, £400) 

CALL  GRDPLYI  •  ',20, £400) 

CALL  GROPLY I *YCU  HAY  HAVE  0?  TO  12  LEVELS  RLR  FuCTOK. • , 40, £4ool 
CALL  GRDPLYI •  ',20,64001 

CO  241  J  =  l , 2 

243  NR  1 T  E I  NOOK , 2  40 1 F  NAM ( J 1 

240  FORMAT  I ' HOW  MANY  LEVELS  DO  YOU  HAVE  FOR  FACTOR  ' ,A4, '? • , 16X| 

CALL  FcTCIKT  EXT2  ,NCF  ,6400! 

.CALL  GRDPLYI  TEXT  2  ,NCF  ,£4CG  1 

806  CALL  GWA1T 
IFIITYPr.NE.3IG0  TO  402 

291  CALL  GRKPLYl TEXT  , MC) 

CALL  X8LANKI  TEXT  , NCI- 
1N0E  X=0 

CALL  If.XlUXT,  INDEX,  HC,DNP,C401  1 

NLVL  (.t)“DNP*  .01 

IF  ( NL  VI  IJI.LC.12I  GO  TO  241 

CALL  GIlilPLY  (  '  NUMBER  OF  LEVELS  CANNOT  EXCEED  12,  TRY  AGAIN. ',46, 


1 C4G0  1 
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0241 

GO  TO  806 

0242 

241  CONTINUE 

0243 

WR  IT  E  UiDUH  J’3  3 0  J  FNAH 1 1 1  *  NtVU  1 1 « ! 

FNAH12 ) ,NLVL(  21 

024.4 

330  FORMAT  <  ‘FACTOR  *,A4,*  HAS*, 13,* 

LEVELS,  AND  FACTOR  »,A4,»  HAS*, 13, 

1*  LEVELS. ',3X1 

■ 

0245 

CALL  F£TCHITEXT2,NCF,£4C0> 

0246 

CALL  GRDPLY ( * 

*,20,6400) 

0247 

CALL  GRl)PLY<TEXT2«NCF,E400) 

0243 

242  CALL  GWAIT 

0245 

IF  (N.GQ.30I  GC  TO  203 

C250 

IF  <6. fcO. 31J  GO  TO  210 

0251 

IFI.1.EC.2I  GO  TO  228 

0252 

331  CALL  GFRASI 1001 

0253 

00  340  K=l,2 

0254 

DO  340  1=1,12 

0255 

NEf.i)  (K ,  I  )=0 

I  256 

340  CONTINUE 

' 

0257 

NSTEP=5 

0250 

CALL  GROPLYI* 

•  ,20, C40U) 

0255 

CALL  KltOPLYI  • 

*  ,2*1,  £4Uo ) 

0260 

CALL  GRCPLYi  1  YOUR  FACTORS  SHOULD  8E  IN  DISCRETE  LEVELS  AS  1,2,..., 

112.  BUT*  ,6l  ,£4001 

0261 

CALL  GROPLYI • 1 F  YOUR  DATA  IS  CONTINUOUS,  GROUPING  CAN  BE  DONE  FOR 

1Y0U.  *,57,  C40C) 

0262 

CAIL  CROP  1  Y<  * !  F  YOUR  LEVELS  ARE 

ALilLAOY  OISCRETELY  DEFINED,  PRESS 

1KEY  1.*, 55, £4001 

0263 

LALL  GRDPLY  (ME  YOUR  DATA  IS  CONTINUOUS,  PRESS  KEY  2 .  •  ,  40 ,  £40,>) 

0264 

245  CALL  CRAIT 

0265 

IF  (M.C0.3G1  GO  TO  203 

0266 

IF  (N.10.31)  GO  TO  21U 

0267 

IF  (N.fO.l 1  CO  TO  247 

0268 

If-  IN.CC.2)  GG  TO  246 

0269 

GO  TO  746 

02  7C 

246  CALL  GERASU001 

0271 

NS  TEP=  10 

0272 

CAU  GROPLYI*  • 

' ,20, £400) 

0273 

CALI.  GROPLYI* 

1  t  20  »  £<>00 ) 

0274 

CALL  GROPLYI  ’TC  GROUP  THE  CATA, 

ASSIGN  EACH  LEVEL  OF  THE  FACTOR  AN 

t  "ENC  COOC"*  ,64,  £4(,01 

0275 

CALL  GROPLYI  'OR  AN  IDENTIFIER; 

EG,  IF  ONE  OF  THE  FACTORS  IS  AGE  R 

1A1.C1NG  FRCP' ,64,  £400) 

0276 

CALL  GROPLYI ' 5  YEARS  fO  25  YEARS,  HE  MAY  WISH  TO  ASSIGN  AGES  TO  l£ 

iVELS  AS',60,  £400) 

0277 

CALL  GROPLYI'  5-  5  YEARS 

LEVEL  1',  25,1.4601 

C278 

CALL  GROPLYI'  10-14  YEARS 

LEVEL  2 *  ,25 , CC»o 1 

02  75 

CALL  GROPLYI  '  15-19  YEARS 

LIVEL  3  ' ,  25, £aoG 1 

0230 

CAU.  GROPLYI*  20-25  YEARS 

LEVEL  4*  ,25,  £40*,) 

0281 

CAU.  GPOPLYI  ’THEN  TUc  ENG  CODE 

FOR  LL'VFL  l  MOULD  BE  9,  THE  END  COD 

IE  FOR*  ,50, £400) 

0292 

LAU.  GRDPLY) 'LEVEL  2  HCULO  UE  14,  ETC. »  ,25, £400) 

0233 

CAU.  GROPLYI  ’THIS  OAT  A  MOULD  BE 

;  iNTEREO  AS  9, 14, 19, 25', 42, £4dO 1 

0264 

CALL  GROPLYI  • 

'  1,20, £400) 

0285 

CO  250  J=1 , 2 

C2£6 

NL=IIIVL(J) 
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INPUT/ 


DATE  *  71253 


13/24/17 


256  UR  IT  E(  NOUN  ,251  H'LVL  ( J)  *FNAM(J ) 

251  FORMAT  t'HHAT  ARE  THE  "END  CODES"  FOR  THE*  *13* •  LEVELS  OF  FACTOR  • 
1 » A4. 1 ?' , 2X  ) 

CALL  FEICH!TEXT2,MCF, 64001 
CALL  GRDPL Y( T£XT2,NCF, C400 1 
807  CALL  GWAIT 

IFIITYPE.NE.3IGC  TO  402  ' 

293  CALL  GRRPLY ( TEXT ,NC l 

CALL  INKITEXT,hC,8,  IEft,DK!l) , DN! 2) ,DNI 3) ,DNI4) ,DNt 5 ) ,ONt 6) ,DN!7> , 

.  10N<0)> 

'  II'  ! I ER.NE.O )  GO  TO  401 
IFlNl.LE.8IGC  TC  357 

CALL’  INK  ( T£XT,NC ,4, 1 £R,DN(9)  ,ONt  10)  ,DN  1 1 1 )  ,l)Nt  12) ) 

IF ( 1 ER.NE.O) GO  TO  401 
357  DO  252  1*1, NL 
252  NENO (J,1)=DN(I) 

250  CONTINUE 
C 

247  CALL  GERAS(IOO) 

00  844  ‘K=  1  ,NFACT 
JJ  =  NLVLIK) 

IF  (NENO!  K  ,  J  j  | )  999,999,844 

999  CONTINUE 

00  998  I.KN  *  1,JJ 
NENOIK.LHN)  -  LHN 
998  CONTINUE 
844  CONTINUE 

CALL  CROPI.YI*  •  ,20,  6400) 

CALL  GROPLYI*  ',  20, 6400} 

00  350  .1=1,2 
NlrNLVLUl 

UR  ITEI  MHIH,34r> INI.VL I  Jl  ,FNAfl<  J  ) 

345  f  0KHA1  ( '  THE  "EMC  COOES"  FOR  THE',  13.*  LEVELS  OF  FACTOR  ',A<.,12X> 
CALL  FETCH!  TEXT.?  ,NCF ,  (.400  ) 

.CALL  GRDPLY l  TEXT 2 «NCF ,6400) 

352  V.RI1  EINOUf',356)  (NENO IJ, 1 1 ,  1  =  1,NL ) 

356  F  0  PM  A I  ( 1 2  (  13,1X1  ,12X) 

CALL  FETCH! T CXT2 ,NCF . 6400) 

350  CALL  GRDPLY ( TEXT 2  «NCF , £400 ) 

360  CALL  GNAIT 

IF  (N.E0.3U)  GO  TO  203 
IF  (N.EQ.  31 )  GO  TO  210 
IF1N.E0.2)  <,t  TC  246 


285  CALL  GERAS! ICO  I 

CALL  GCPFKIFASK2 ,PFINT) 

NS1EP=11 

CALL  GROPLYI*  ■  ',20,6401) 

CALL  GRDPLY!  «  ',2!),C400I 

CALL  GRDPLY! 'NOH  YOU  MUST  SUPPLY  THE  OATA.  YOU  WILL  NEED  TO  INDIC 
l AT  E  TFE» ,60, C4C0  I 

CALL  GROPLY! 'LEVELS  CF  THE  FACTORS  AND  THE  RESPONSE  OF  EACH  VARIA6 
lLfcV  ,56,6400)  ■ 

GALL  GRDPLY!'  EXAMPLE!  2, 7,412 , 34,5 ' , 28, C400 I 

CALL  GRDPLY!  •  INDICATES  FACTOR  1  IS  AT  LEVEL  2,  FACIOR  2  IS  AT 


l 


93 


FGRTRAfi  IV  G  LEVL-L  19  ' ’  '  INPUT  DATE  -  71253  13/24/17 


0336 

0337 

0338  • 

0335 

0340 

0341 

0342 

C343 

0344 

0345 

0346 

0347 

0348 

0349 

035C 
0351 
0352 
0353 
0354 
0355 
0356 
C 157 
0358 
0155 
0  360 
0361 

0362 
0363 
0364 
0365 
0  366 
•0167 
0368 
0365 
0370 
0371 
0372 
0373 
t  374 
0375 
0376 
0377 
0373 
0375 
G38C 
0381 


l  LEVEL  7, *,62,6400) 

CALL  GRDPLY  ( •  THE  RESPONSE  FOR  VARIABLE  1  IS  412,  '.HE  RESPUMSE 
1  FCR*‘, 57,6400) 

CALL  GRDPLY ( '  VARIABLE  2  IS  34,  AND  THE  RESPONSE  FOR  VARIABLE 
13  IS  a.*, 60,64001 

CALL  GROPLYIMF  YOU  WANT  TC  OMIT  DATA  ON  A  PARTICULAR  RANOOM  VAR  I A 
1BLE, *,07,6400) 

CALL.  GROPLYI 'REPLACE  IT  BY  -999, • , 19 , C403 ) 

CALL  GRDPLY ( •  EXAHPLE:  2,  7,412, -99->, 5*  ,30,6400) 

CALL  GRDPLY (  •  INDICATES  THAT  THE  DATA  FOR  THE  SECOND  RESPONSE* 

'  1,52,6400) 

CALL  GRDPLY! '  VARIABLE  IS  OKITTEO, *,25,6400) 

CALL  GRDPLY!  •  ' ,1,6400) 

•CALL  GRDPLY! 'WHEN  YOU  HAVE  ENTERED  ALL  CATA,  PRESS  KEY  3.»,44,64J<> 
1) 

CALL  GRDPLY!  '  •  ,20,6400) 

CALL  GRDPLY! 'SHOULD  YOU  REALIZE  YOU  HAVE  A  MISTAKE  IN  YOUR  DATA,  1 
IYPE  "RACK"*  ,63,C40u) 

CALL  GRDPLY! *ANC  THE  NUMBER  OF  ENTRIES  YOU  WISh  TO  GO  BACK.', 46, 
164001 

CALL  GROPIYI*  *,20,6400) 

CALL  GRDPLY! 'WHEN  YOU  ARE  READY  TO  ENTER  YOUR  DATA,  PRESS  KEY  1,', 
151  ,6400) 

IREC  3  =  5  >2 

PR  IT  E  (M3*  IREC 3  )TTL,  VNAM,FNAM,NL  VL ,  N!:'U> , LEVEL  ,  NTRAN.NVrtL 
IREC  i- ) 

MR  ITE (N3 • I  RE C3, 4 63) BLANK  »!FNAH(l),Icl,2),(VNAM()),I  =  l,5) 

483  FORMAT  (3A4  ,5!4X,A4,4X)  > 

KOBE -0 
KC.0NT=U 

269  CALL  GWAIT 

IF  (N.E0.30)  GO  TO  203 
IF  (N.E0.31)  GO  TO  210 
IF  IN. 10.1)  GO  TO  482 
GO  TO  269 
C 

402  CALL  GERAS! 1 00  ) 

CAU  GRDPLY!  •  *  *,20,641)0) 

WRITE!  WHIM,  4  63  )  BLANK,  (FNAHd  1 , 1«1 , 2) ,  ( VNAM!  I  ),  1=1,5) 

CALL  F6TCHTEXT2  ,NCF, 64001 
CALL  GROPI.  Y(  TEXT2  ,NCF  ,  £400  ) 

IF  (NVRL. IE. 5  I  GC  TO  405 

HR  ITE  (NOUM  ,404  )  ( VNAII!  I), 1=6, 10} 

WRITE  INI'  IREC  3, 4  84)  t  VNAP!  I)  ,  1  =  6,10) 

404  FORMAT  ( 12X  ,5!  4X,  A4,4X) ) 

CALL  FETCH(TEXT2,NCF,6400) 

CAU  GRDPLY!  TEXT2.NCF, 6400) 

485  CONTINUE 

CALL  GRDPLY! •  *,20,640J) 

NSTEP*  12 

CALL  GCPFK(KASK3,PF INT  )  ' 

SE1UPI  131=0.0 
294  KOLNT=KOUfiT«l 
608  CAU  GWAIT 

(FUTYPE.rc.  I.AhC.N.FG.3)G0  TO  390 
IF  1 1 TYPE.NC  «  3 )GC  TO  402 
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0  382 

500 

CALL  OHRPLVUEXT.NCJ 

0383 

IF(TLXT<  1». EC. BACK)  GO  TO  380 

0384 

CALL  IiV. {T!iXT»NC«7, 1£R,DN4  i),0N(2)  «DN(  3)  *DN(4)  ,UN(5)  ,DN(6)  ,DN<7> ) 

0  38.5 

IFMin.NE.ttluU  TO  507 

0336 

lFiNVU.LE.51G0  TO  260 

0.387 

CALL  lIiK(TCXT,NCi5,!EK,DNI8),QN(9)  ».DN(  10  ('.ON  11 11  tONI  12)1 

0388 

IFUt8.Nf.0lC0  TO  507 

0389 

260 

ISETtll  =  lUJil» 

0390 

ISET (2 )-CN(2  1 

0391 

00  261  12  =  1,  10 

0382  ' 

261 

XI I £)s CM (12+2) 

0393 

IFlKCOt.UE.O)  CALL  GUKSP IKCDE 1 

0394 

lFINv;jL.LT.51NPITE(N0!JHt370)K0UNT,USETU),I*l,2),(X(I),I*l,NVflL) 

0395 

’ 

IF  (NVIU.  GC-.5  IWRITECHDUH,  3701K0UNT ,( 1*3  ETII), 1*1,21, (XIII, 1=1, 5) 

C396 

370 

FORMAT (14, 21  13, 1 X) ,  lf“.iE12.3 1 

C397 

CALL  FfTCh(UXT2,NCF. 54001 

0398 

374 

CALL  GROPLYI TEXT2 ,NGF ,5500 1 

0399 

IFINVOL.LE.S)  GC  TU  101 

0400 

LR  IT b  I  MM)  11,375  MX  U  1 ,  1=6, NV8L  I 

0401 

375 

FOPMAf  1 12X  ,5(2X,  lPf.  10,3)  1 

0402 

, 

CAI.I.  tt.TC.IMT  tXT2»NCF*  64001 

of>03 

378 

CALL  Cli.M’LYt  TEXTS, NCL  ,5602) 

U404 

396 

rORflAT  ( 3 1 3 , 1 P0E1 2.3/9X ,  IP561 2.  3 1 

C405 

101 

KOUt  =0 

0406 

r 

WRIT  tl  63'  IKF.C  3,396)  KCUNT ,  ( SET  ( 1 1 , 1  SET  1 2 1 ,  ( X  ( KC 1 ,  K0=1  ,NVRL  1  . 

0407 

1# 

621 

DO  106  K=1 (MFACT 

0408 

JJ  >Ml.VLI  K) 

0409 

■  107 

CO  108  J=1,JJ 

0410 

IFU  SI. T(K)-NCNC( K,JI  1109,109,108 

0411 

109 

1 SLT  ( K  1  =  J 

C412 

GO  TO  )i,o 

0413 

108 

CONI  INGE 

0414 

ISM  (K  1  =  JJ 

0415 

106 

COM  IfiL'F 

0416 

CO  1U2  K=1,UV0L 

0417  * 

IFIXIKI  -  CUTL1  107, 10, 1C3 

0418 

103 

KtULURANOU+l 

0419 

CO  10(1, 1,2, 2, 4, 5, 6, 71,  KK 

0420 

l 

SET1IPIK12MX4KI 

0421 

GO  Ti,  102 

0422 

2 

iFt>:ou))0,;e,n 

0423 

10 

SClUPtK*2)«0LH 

0424 

SETUP! 131=1.0 

0425 

GO  VC  102 

0426 

11 

SETUIMIU2)*AL0G(X(KU 

0427 

GO  TO  1(1? 

0428 

3 

IF(X(8M1, 0)10,10, 12 

0429 

12 

SCTUIMIM?)»A10G(X(K)-»1.0) 

04  30 

GO  TO  102 

0431 

4 

IFIXIX 1 1 10, *  3, 13 

04  32 

13 

SETUP  (K*  2  1  =  SCRT  I X  (K  1  1 

04*33 

GO  TO  102 

0434 

5 

IF  (X  (X  1 1 10 , 10,  14 

0435 

.  14 

SCTUIMI1*21«1.0/X(i;l 

0436 

CO  TC  102 

95 


FORTRAN 

0437 

0438 

0439 

0440 

0441  ' 

0442 

0443 

0444 

0445 

0446 

0447 

0446 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

C46C 

0461 

0462 

0463 

0464 

0465 

0406 


0467 
0468 
0469 
04  70 
0471 
0472 
0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 


iy  c  tevst.  19  ' 


Input 
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•  6  IF(X(K)4(l.-X(K)mO,15,15  '  '  ' 

15  S£TUP(K*2)=AhSIN(2.*X(K)-I.; 

CO  TC  102  "  '  *'  . 

7  SETUP(K*21«X(K1 

C  #>»#*#+*******  #*****g(jHny  ION*****  **************  ******  ******  ********** 

102  CONTINUE 

IREX=IREC3  ”  ' 

IR£C3=51Q 

IFtlFLH.EO.l  JHRITEINI'IRrs.?jKOUNT  . 

IFUFLH.E0.2IURITE(N3'IR'/..-.»fI£'J2C 
‘  IR£C3*IREX  ■  *  •  ■  . 

WRITE  (Null  SETUP 
SETUP(13)*0..0 
‘  GO  TO  (294t6&4 1 ,  IFLH 
C  •  *  ” 

390  CALL  G£RAS( ICO) 

NSU0J*KOIJNT-1  . .  - 

CALL  GCPFK (HASK2  »PF INT I 
CALL  GRf)PLY(  •  •,  l,6400i 
CALL  GRDPl  Y  ( *  *,1,64GC(! 

CALL  GROPLY (  •  HCM  THAT  ,JU  HAVE  ENTEREO  ALL  ClF  YOUR  DATA,  YOU  CAN  P 
1RLSS  KEY  1', 63,64001 

CALL  GROPLY  1  •  TO  CCNTOlUc.  COMPUTATIONS  MAY  TAKE  SEVERAL  MINUTES. 

X  OE  PATIENT  *,65,64035 
391  CALL  6WA IT 

IF  (N.EQ.30S  GO  TO  203 
IF  (N.L:Q«  11  GG  TO  001 
IF  (N.FQ.31)  GO  TO  210 
GO  TO  391 

801  CONTINUE 

802  REWIND  NM1 
CAIL  GERAS) ICO  I 

CALL  GRRLSE  -  '  '  '  ‘  ... 

REIURN  •  ‘ 


40G  GO  T0( 203, 206, a 3, 201, 224, 237, 225, 228, 241, 246, 285, 210, 604 1, NSTEP 
401  CALL  GROPLY(  «f  CRMAT  ERROR.  REENTER  OATA.  '  ,?.8,C4uO» 

If  (HSTEP.EU.12)KG£;E»KC0E*1 

GO  TO(2tO,2LO,61  2,210,004,210,2 10, 806,210,807,210,808 ,8i;9)  ,N'STEP 
402  IF ( I TYPF.EG.  1  •  AN0.N.EQ.30 1(!0  TO  203 
1F(ITYPE.E().  1.SN0.N.EQ.3UG0  TO  210 

CALL  GP.OPLYI  *YGU  SHOULD  BE  IN  A  POSITION  REOUIRI NG  E08  SEQUENCE.*, 
151 ,64001 

IF(NSTEP.E0,  12  IKC0EJ'KGOE  M 

GO  TO  (210,811,812,003,804,210,805,896,210,807,210,808,609) ,NSTEP 
380  IH(,SX»4 

1 F ( T EX T (  2 )  .N E,  l.'l ANK 1  GO  TO  304 

NilACK'd 

GO  TO  302 

364  CALL  IN'X ( TEXT,  !NOEX,NC,DN'P,  6503  f 
Ml  ACK*  ONPf  ,0  1 

382  Nt.iiACN'NOACK  ’ 

IF  ( til'll  L*  LI;  .5 1  RG  TO  305 
NN8ACK.24NN0ACK 
385  CALL  G(1K SP ( IINB/.C K ) 
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04  66 

K('.uNT--miNT-i:n»CK-i 

0467 

Ml  363  Id.NlsACK 

04R8 

383 

TALK SPACE  MW  1 

0489 

IREC3=IRCC3-NNEACK 

0490 

GO  TO  ?94 

U491 

500 

CALL  GtKAS(l) 

0492 

GO  TO  374 

0493 

502 

CALL  GERASU) 

C494 

GO  TO  378 

0495 

503 

CALL  GROPLY! •FORMAT  ERROR.  PLEASE  TRY  AGAlNi • .32 , 6504 1 

C496 

GO  TO  508 

0457 

504 

CALL  GERASU) 

0498 

CO  TO  50 3 

0499 

507 

CALL  GP.OPl.Y  ( ’FORMAT  ERROR.  REENTER  DAT  A.  •,  28, 65091 

0500 

KU[)E=K('OL;<  1 

0501 

GO  TO  5011 

0502 

509 

CALL  GERASU  1 

0503 

CO  TO  507 

0504 

210 

CALL  GFRASUOO) 

0505 

CALL  GKHI.SE 

0506 

C 

S10P 

0507 

C 

1001 

REWIND  NWl 

05CS 

C.AU  (.CI’FK  t  KASK4  ,PF  1NT  ) 

0509 

1M.M-.2 

0510 

!."IC3*.SI>? 

0511 

Pi  Af)  IN? '  1REC  2 1 TT  L ,  VNAM.F  SAP,  tlLVL  ,NENO ,  LEVEL ,  NT  RAN,  NV8L 

0512 

IRrC3a5U) 

0513 

PL  A!)  It.  3’  IREC2I  KSUil.l 

0514 

IP.  EC  3d 

0515 

irir.R-i 

0516 

IP  (NVilL.GT.  5 )  INC R!r2 

0517 

604 

10=0 

C51C 

•  KS7EP=  1 3 

0515 

IKtCX=  IKEC.3 

0520 

CAll  G(RASUCO) 

0521 

5959 

PCI-MA1  I20A4I 

052? 

603 

Ml  6 10  1 Y •=  1 »  INC.R 

0*23 

IU.A01U31  IREC  3 » 559917  EXT3 

0524 

1«J"IQ*1 

0525 

610 

CALL  GHOPt  Y  (  TPX1  2  «NC2 . 6400  1 

0526 

IP  U0.LU4O.AKO.  l.:LC3.LE.  INCR*NSUBJMNCR)GC  TC  603 

0527 

CALL  GRI)PLY(  •  *,  1.6400) 

0*28 

CALL  GROPLY  (  'PIUSS  KEY  l  TO  CONTINUE  OR  KFY  ?  TO  CHANGE  DATA.  *,48 

16409) 

0529 

CALL  GROPLY (ME.  AT  ANY  T  INC.  YOU  WISH  70  RETURN  TO  YOUR  PREVIOUS 

1 

,52,6400) 

0530 

CALL  GROPLY! ’UNIVARIATE  ANALYSIS  OUTPUT,  PRESS  KEY  29. • ,41,6400) 

0531 

CALI.  GROPLY ( *  I F  YOU  WISH  TO  SLC  1IIE  PLOTS  OF  YOUR  DATA,  pit FSS  KEY 

16. *,55,64001 

0532 

602 

CALL  GUAIT 

0533 

IF  (0.1.0,6)00  TO  660 

0534 

IMN.F0.29I GO  10  602 

0535 

II-  (M.L0.30  )GC  TO  203 

0536 

ti-  IN.  GO.  31) GC  10  210 

97 
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Ob37 

11  (N.EQ.l.AKO.  ffcCC3.C.l.l}.CR*NSUaj)G<)  TG  670 

0338 

161N.tO.tl  GO  TO  604 

0539 

IF  (N.EC.21G0  TO  606 

0540 

GO  TO  602 

0541 

606 

CALL  GCK5P141  '  - 

0542 

CALL  GROPLYIMF  YOU  WISH  TO  DELETE  AH  ENT  IRC  RECORD.  TYPE  "DROP1'  A 
1  NO  ITS* .59.64001 

0543 

CALL  G80PLY ( ‘RECORD  HUMBER.* , 14, £400 ) 

0544 

CALL  GKDPLY(*IF  YOU  WISH  TO  MAKE  CHANGES  IN  A  RECORD,  TYPE  ITS  REC 

1CR0  NUMBER* .63.C4001 

0545 

CALL  GROPLYJ  'AND  IME  NEW  RECORD  IN  THE  ORIGINAL  FORMAT.  SEP4RAT c 
1AI.L  NUMBERS'  .64,640(1) 

054b 

CALL  GRDPLYI *8Y  COMMAS.  YOU  MAY  NOW  ENTER  YOUR  CHANGES. ', 46, 

164001 

0547 

805 

CALL  GUAtT 

0546 

IF (N.CC.29JGC  TC  802 

0549 

IF <  1  TYPE, HE. 3) GO  TO  402 

0550 

623 

CALL  GHRPLYCTEXT ,NC1 

0551 

CALL  XHLANKI  TEXT, NCI 

0552 

'  lF(T£*Tm.CQ.ORGPIGf)  TO  614 

0553 

!NCEX=0 

0554 

* 

NVX“NVBL4  3 

0555 

CO  611  KS’t.AVX 

0556 

KSS-KS 

0557 

CALL  I NX(1 EXT  « INDEX, NC ,DHP ,6401 1 

0556 

SETUP! KSI:CNP 

0559 

611 

CONTINUE 

C560 

CO  616  usn.Kvoi 

o56i 

616 

X<KSI*SETUr(XS43) 

C562 

628 

IRC*  SE  TOP  1  J  1 

0563 

IF  (IRC.GT  »NSU0JINSURJ*SSUBJ*1 

0564 

l  SEl< l I»SE IUP( 21 

0565 

ISFT  <?  I«5f THP1 31 

1566 

629 

IkEC  3=  ( 1 RC-1  I*  INCR+H-  IhCR 

0567 

•KRITtIM*  l;TcC3, 39611  RC.lSLTIl), IS  F.T12)  , 1 X I  XT  ) ,  KT°l ,NVBL  I 

0566 

630 

IP.EC3*1RECX 

0565 

GO  1C  604 

0570 

614 

INCEX*4 

0571 

CALL  INN! TEXT  ,  INDEX ,NC,ONP, 4401  I 

0572 

IRC^ONP 

0573 

ISET<n=0 

0574 

1  SET  1 2  )K0 

0575 

80  626  JQ  =  1,NV8L 

0576 

626 

x<  jq  )  *  our  l 

0577 

GO  TO  429 

0578 

660 

RLW1F.D  N>,  1 

0575 

|R£C3*IHCR+1 

0580 

NVBX=rNVBL«3 

0381 

KCCT  »0  .  " 

0582 

664 

IF (KCC  U GL.HSUD J IGO  TC  802 

0583 

KCCT »KCCT <  1  '  '  ' 

0684 

REA01N3*  IRF.C 3,396) ( ISET I  IRI,  1 R*  l , 3 ) ,  < SETUP ( 1 V I ,  IV=4,  NVDX) 

0365 

!SF.mi»!SrT<2l 

0586 

ISET  (21s-!  SET  (3)" 

0587 

DO  641  KR= 1 , NVOL 

0583 

661 

X<KB)--*SL1UPIKU*3 1 

98 
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0569  GO  10  ‘.21 

0590  670  CALI  GC'lASUOOl 

0591  C/.lL  CSUPLYJ*  M.WC-tfl  "  r - 

0552  CAU  GKOPLY I  *  I F  YOU  WOULD  tlKE  TO  INDICATE  NEK  TRANSFORMATIONS  FOR 

1  •  i  53 1  650!)  1 

0593.  CALL  GROPLYI  •  ANY  CF  YOUR  RESPONSE  VARIABLES,  PRESS  KEY  2.  SAA, 

moo> 

059A  CALL  GROPLYCIF  YGU  WISH  TO  CONTINUE  TO  YOUR  UNIVARIATE  ANALYSIS,' 

1,52, CAOG ) 

0595  .  CALL  GRDPLYI 'PRESS  KEY  l.»,12,CA00) 

0596  675  CALL  GliAIT 

0557  IF  (l{.E0-30)GC  TO  203 

0590  IF  (N.EO.,  3 1  1GC  TO  2)0 

C599  •  II-  (Nwf'O.l)  Gf  1C  660 

0600  IF  (Nol'On  2)  CO  TC  22 A 

0601  GO  TO  675 

C602  END 


FORTRAN  IV  G  LEVEL  19 


PM  AT* 


DATE  »  71253 
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0001 


0002 


0U03 

0004 

0005 

0006 

0007 

cooo 

0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
001  fl 
0010 
0020 


0021 

0022 

0023 

0024 

0025 

0026 

0027 

CO20 

0029 

0030 

0031 

0032 

0032 

0034 

0035 


0036 

0037 

0036 

0039 


SUBROUTINE  PN'ATXCNt  ,NJ) 

0 

C  GENERATES  INCIDENCE*  MATRICES "ANO  SUBTOTALS  MATRICES 
C  TOR  A  FACTOR  PAIR,  FOP.  ALL  RESPONSE  VARIABLES. 

C 

C  AH  INITIAL  OECISION  IS  HADE  ON  ThE  VALUE  OF  MULT 
C  IF  MULT  =0  DO  THE  MULTIVARIATE  ANALYSIS 

C  •  IF  MULT  »  l  00  UNIVARIATE  ANALYSES 

C 
C 

COMMON  N » It'iVLY  ,  1  T  YP£i  TTl  115 1 , VN  AMI  10 1 ,  FNAM1 2 I-NLVL  (  2  >  ,NEND!2  ,12)  . 
HE  VEL(  2 1 12)  ,NaA,NCA,NRB,NCC.JA6!8l  ,M  ,N2  .NVBL.AFACT  ,NG12  ,MULT, 
2NSUR J.NLUV  , f.Kl , NH2.NT ,  1  SEC ,NI Z ,NJ2  ,t;CUNT ,N0 1AG, IREC1 , 1 REC2, 1 REC3 
3t  NTRANI 10)  ,1NAM!10),LUVI10)  ,MNi.UV(  Its ! 

DOUBLE  PRECISION  A, B,C,0SQL,DS5CP 

DIMENSION  OSCUUOl.OSSCPUO,  10).  SETUP  113)  ,0S$(  12.12.  10 ) ,  SUBT 1 12, 12 
l,iOI,ISETU3),NN(12,12,lO) 

EQUIVALENCE  1  SETUP! 1 ), I SET(l) ) 

REWIND  NO  1 

iriNSUBJ.GUSOGi  GO  TO  99 
CUTl *-999. 

DO  SOU  K*  1 , 10 
CSQUlK)  *  0.000 
DO  500  I  *  1  ,12 
CO  SCO  J  *  1,12 
NN1I.J.K)  8  0.0 
OSS!  l.J.KI  *  0.0 
SUBT(!,J,K)  *  0.0 
500  CONTINUE 

DU  1500  11=1,10 
CO  1500  JJ»1,10 
1500  r.sscpiu.jji  *  o.oo 
If-  UIULTI511,  £10,511 
C 

C  .UNIVARIATE  PROCEOURE 
511  CONTINUE 

00  600  1  =  1 , NSUBJ 

RE /()  INW1 1  SETUP  1 

MI  =-.  ISET(M)  ‘  ! 

MJ  =  ISETINJI  ‘  j * 

DO  501  K  =  1.NV8L  "  ( 

CK  =  SETUP(M7. 1  ! 

IF!CK-CUTL)5C3,501,5O3  \ 

503  NN  IH I ,MJ ,K )  *  NN(MI,MJ,K)  ♦  l 

SUBT1HI  ,MJ,K)  *  SUBT(K1,HJ,K)  ♦  SETUPIK  +  2I1 
■  CSS! MI  ,HJ’, W  I  =  DSSIIU.HJ.K)  ♦  SETUP!  K+2)*SETUP|IU2) 

CSQUiK  I  =OSOU  (kM  I  COL  E1SE  TUP  IK  *2  II  1**2 
SOI  CONTINUE 
600  CONI INUE 

GO  TC  529  1 

C 

C  MULT  IV AR  l  AT (  PROCEDURE 
flO  CONTINUE 

NVOL  1»MVBI.— 1 
NLUV*0 

CO  191  J  =  1  ,  N  VO  L 


100 
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0040 

191 

IFCIUVIJI.NE.O!  NLUV*NI.UV*1 

0041  . 

IF(LUV(NV0U.E0.01  LUV1NV8U-99 

0042 

ITEHP«NV*L  . . , 

0043 

NV8l*NLUV 

0044 

NLUV-ITEHP 

0045 

DO  700  I-1,NSU0J 

0046 

RE AO  !NW1)  SETUP 

0047 

IF(SETUP(13)-1.) 506 1 700 1 700 

0048 

506 

CONTINUE 

0049 

CO  300  J=  1 #NVBL1 

0050 

IFCLUVUI.NE.OI  GC  TO  300‘ 

0051 

302 

CO  301  K*J,NVBU1 

0052 

LUV!  K) *CuV(K41 ) 

0053 

301 

SETUP!K42»*SETUP<K43> 

0054 

IF  (IUV  ( J ) » EQ«0  1  GO  TO  302 

0055 

300 

CONTINUE 

0056 

Ml  *  ISETINI ) 

005? 

MJ  =■  I  SET  (NJ  ) 

0058 

DO  505  K.»  1  rNVOL 

0059 

NNIHI.HJiK)  *  NN!MI,HJ,K>  4  1 

0060 

SUBT (MI |P J iK )  «  SUOT ( HI t  HJ  iK )  ♦  SETUP ( K42  ) 

0061 

CSS(  HI  »H  J  i  K  1  ^  OSSlHl,MJ,K>  4  SETUP! K4 2 1 »SETUP ( K42 ) 

0062 

CO  505  LHk 1 (KVBl 

0063 

A* COLE ( SETUP  1 K 42 ) I 

0064 

B*C8LE(SETUP(LM*2}» 

0065 

C»CSSCP!K.IHI 

0066 

c*c*a»o 

0067 

DSSCP!K,LM)^C 

0068 

505 

CONTINUE 

0069 

CO  650  I AM* 1 *10 

0070 

650 

LUVI  IAH)=MNLUV ( I  AM) 

0071 

700 

CONTINUE 

0072 

504 

CCNTIMJE 

0073 

512 

CONTINUE 

0074 

CO  520  K=  1  »NVBL 

0075 

CSOUIK 1 “C5SCT ( K ,K) 

0076 

520 

CONTINUE 

0077 

529 

REWIND  NW1 

C078 

REWIND  NW2 

0079 

HR  ITE (NM2 I  DSSCP 

0080 

WRITE1NW2)  NN 

0081 

HRITEJNH2I  CSS 

0082 

HRITEINH2)  SUOT 

0083 

WRITE! NH2)  OSOU 

0084 

RETURN 

OC85 

99 

HR1T£!6,90)N:uOJ 

0086 

98 

FORHAT ( *  NSUBJ  ■  •,  1101 

C087 

STGP 

0088 

ENO 

13/24/1? 
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jC.i  rii «  {*.*!.  ;  *,•  i»C% t 

f*  ‘  »  J* 

.*0».  < .  T  •  >  ■■  '* '  •.  i  i  i  &•'  ■  I 

c:\  ;<>7  *  •  tt'.v.-.. 

i  ’  *  I  1  2 

r.i 

.'t  iA*i'p 

<1  i***!; 

i  i  I  h 

*oc  i  v»i«j r  i  ,.i.ai 

i  • .  .*  i :  i  ./J  .5 
J  '■  -.11  ;■  i.  ■■ 
i.  y  i  . 

All  l  i  *  ■*  I  ‘I  f  it  f  **  1 

i.  : 

r  ->  •.  )2  ; 

i 

4) 2  ' i  i..;  ••  ....  »n 


<  •"  <? 


.1  • 


.  *t r 
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DATE  V  71253'  " 


13/24/17 


RFA’J/NM2l  OSCU  '  '  " 

OSQV  *  DSQUiK J 

•  ' 'aa'AHDT(fjfn;suT.7^i~2"ifi!;'QV.ss*R£.CE.a.oo» . 

120  CONTINUE 

"  ullHi!30*  **  ■ 

KIU-K-1 

'  iriii.GT.n  CO  TU  '146  '  “ 

140  WiUf£lNU2l  HI,NJ,K,SUB,R8tCE,Q,Q8 

GO  TO  907  .  . 

146  CO  145  IX3!, KH 

145  RCrtD(NW21  DUMB  .CURB  ,DUHB  ,SS  ,£»UN,bUN,0UM,mj:4  ' 

GO  TO.  143 

907  r.c:;rmie  *  •  . 

tF'II'.ULI.EO.OIGO  TO  350 

1051  KKCUMKOUNT-2  ...  • 

WRITEJNI* IRECl>2050IKKCUN 
WRtTEINl'IRECl, 20031 
WRIVEIN1* 1REC1.20S1 I 
VillTEINi  ♦  JRfeCl  *2052) 

WRITr-INl*ir.ECl»2053) 

RRITEIM' IflECl, 20541 
00  309  l 3 1  *  4  3 

309  HiUU(H2'  1REC2, 20031 
00  310  1*1*57 

310  HRITEtNlMREf.l, 20031 
350  w:u  rs<  NU2  >hHl 

IF(HULT)  134(130*136 
136  IStO  •  17 
GO  TO  138 
130  ISEQ  »  356 

138  RETURN  ... 

2001  FORMAT ! 5SX* ' PAGE*  *14,  *L* »1«X> 

2003  FORMATIfiOAl  - 

2041  FORMAT  t  *  AT  THIS  POINT  TOO  SHOULD  INSPECT  YOUR  UNIVARIATE  RESULTS  V 
1EPY',14XJ 

2042  FORMAT  I' CAREFULLY. ',70X1 

2043  FORMAT!' IS  THERE  A  LARGE  INTERACTION  VERSUS  ERROR  F-RAT 10?' , 30X ) 

2044  FORMAT! 'THIS  HAV  INDICAT8  THE  PRESENCE  OF  OUTLIERS  OR  FAULTY  DATA. 
1 ' » 22X1 

2046  FORMAT  I 'CHECK  THE  TABLE  OF  CELL  TOTALS  OF  VARIABLES  WITH  LARGE  F-K 
1  AT  IDS*  *17X1 

2046  FORMAT ( *  FOR  LARGE  STANOARD  DEVIATIONS  OR  FOR  A  CELL  MEAN  WHICH  DEV 
1 1 *'<1 1  S'  •  17X I 

2047  FORMAT  I*  IRREGULARLY  FROM  A  TREND  IN  ROMS  UR  COLUMNS*  '  «  36X  I 

2048  FOKIiATPAFIER  V3U  HAVE  CHECKED  THESE  RESULTS  YOU  CAN  CHECK  AND  EOt 
IT' ,2 IX ) 

2049  FORMAT  l  •  Y(HR  OAT  A.  ',70X1 

2050  FORMAT  I* PAGE '* 13* •  WAS  THE  OAST  PAGE  OF  YOUR  UNIVARIATE  RESULTS.'. 
127X1 

2051  FORMATCYOU  NOW  HAVE  THE  FOLLOWING  OPT ICNSs •  ,45X I 

2052  FORMAT  I*  PRESS  '  KEY  4  TO'  CONTINUE  TO  YOUR  KULT  IVAR  IATE  RESULTS',  ' 
126X1 

2053  FORMAT  <i;Xt*  5  TO  SEE  AND  EDIT  YOUR  DATA',  41X1 

2054  FORMAT  I12X, '6  TO  LEE  PLOTS  OF  YOUR  DATA', 41X1 
END 
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0001 

SU0ROU7INE  A  NOT  «NNi,S!.iB,'tVV  tA,  iB,0SflU,SQR,«E,CE,0,QBl 

* 

.  C 

UNIVARIATE  AMAtVSfS  OF  ItiftEGULAR  T NO-WAY  FACTORIAL 

0002 

U 

COMMON  N,  ICVLV, I  TVPE,  TTL  { 1.5)  ,  VNAH(  10)  t  FNAH12  )  , NLVL 1 2  ),NEN0(?,12), 
1LEVCI.  (2,12),  UftA*  NCA«NR6»iiCLl*  J»B{  8)  ,N  l » N2,N'V'0l»NF6C  T»  NG 12  *HUL  T  > 
2NSUUJiHLUV  ,Mn.KW2,NT,l  SCC.fll  Z, NJZ, KCJUNT  , NO  I AG, I ft EC  1 1  IREC2,  1REC3 

3  .NTRANUO 1 .  THAN!  10 ) , l.UVt  50),MNLUV(  10 ) 

C003 

0004 

DOUBLE  PREf. i  SICK  G,GM,SMO,S,FN,OSQU,SSE,SSSB,SQ,DR,OC 

DIMENSION  CM  12) «0Cli2) 

0005 

0006 

0007 

DIMENSION  5l.8!:2tl2).f;f  121.  Cl  121,0112  hSUBXI  12, 12), CXI  12.121  * 

1  KEC21  ,CE(  i;!l,SaR(12i.12)  ,SORX<  12, 12 1,00(121, 

2 NN 1(12,12): M« DC 7(12) ,NOOTJ (12)iNX(l?,12).JLVA(12l,JlVB(l2) 

DIPS  NS  I  (IN  1FX"»2(60) 

DATA  01. All!'./ *  •/ 

0008 

NR*.NLVL  (  14) 

Oil 

0009 

NC=NLVL(  liil 

012 

0010 

NF  A=  IA 

013 

COll 

0012 

0013 

NF8*I8 
(FLAG  =  O 
it  INK  =  12 

014 

00  14 

1TG=0 

015 

0015 

IF (NR-HC 111,11*1 

ul6 

oou 

0017 

0018 

l 

CO  2  I  <■  1  ,KC 

D.'J  ?  J  *1,NK 

NX ( t  * J ) *NN1 ( Jt  I ) 

€019 

S0RX(1 ,J)»SOH(J,I)  ' 

02(. 

0020 

2 

SUBX(t,JI-SUB(J,l) 

021 

0021  ■ 

ITMP=NR 

0-22 

0022 

NR*NC 

»23 

0023 

NC* I IMP 

024 

0024 

NFA-IB 

025 

0025 

0026 

NFB=  (A 

1FLAG  *  1 

026 

0027 

GO  TC-  13 

0?7 

0028 

11 

00  12  1*1, MR 

0?B 

OC29 

on  12  J  *1 «NC 

029 

C030 

NK(  1  ,J)-NNt(  I  ,J) 

0031 

SQRXd  ,  J)*SGMI,  J)  .... 

031 

0032 

12 

SUOXU  ,.I)„SUB(  I.J) 

032 

0033 

13 

CO  24  1*1, NR 

0034 

24 

JLVA1I )"N6N0(MFA*1) 

034 

0035 

I*  1 

035 

0036 

14 

NSUM*0 

036 

0037 

CO  16  J*l,ftf.  ’  ■■ 

037 

0038 

16 

NSIN*NM:H«NXII,.«) 

038 

C039 

IF  (NSU.M )  1 7  < 17,18 

039 

0040 

17 

MR*NR~ 1 

040 

0041 

IF  ( l-NR  )2 1,22,22  ’  . 

041 

0042 

21 

CO  19  )!“  I  ,*<R 

042 

0043 

CO  20  L  *  1 » FC  ' 

043 

0044 

SORXIK.l  l'‘SCkX(K»l,l ) 

044 

0045 

SUDX(K,U-SUaXIK4l,L) 

045 

0046 

20 

H  X  (  N ,  L  ) "  X  ( /.  + 1. 1 L- ) 

046 

0047 

19 

Ji. VAtK  )-*JI.VAtr. ♦!  1 

047 

0048 

GO  TO  23 

048 
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13/24/17 


0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0050 
0055 
0060 
0061 
0062 
0063 
0064 
0065 
U066 
0067 
0060 
(.065 
00  70 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
00  78 
0079, 
0080 
0081 
oce2 
0083 
C084 

ooes 

ooeo 

CO  6  7 
0068 
OC89 
'  C09C 
0091 
0052 
0092 
0094 
6055 
0096 
0057 
0090 
0095 
0100 
0101 
0102 
0103 
0104 


10  I  *  1*1 
23  1FII-NR114, 14,22 
22  CO  44  J*1,NC  ’ 

44  JL- VI  (■!  )cN£r’r'4IIP0  ,  J  J 
J=1 

34  MSUM=0 

00  36  If.  ,.<fl 

36  MSU1=NS0.'.*NX(I,J» 

IF  (HSlSM)  37,37, 38  ' 

37  MC=NC-1 

IF (J-NC) 41 ,42,42 

41  CO  39  ftsj.MC 
CO  40' L,  ul, MB 

•  SUBX  (L  ,Kl'=SUf;X ( t  ,K+1 ) 

SORX  (.L  «K  1  “SQRX I  L  «K*1 1 
4C  NX(L,Kl«MX(L,K4l  I 
39  Jt.  VIU K  I  =  JL  VO  ( K  +  l  1 
GO  TO  43 

38  jijtl  ' 

43  IH  ( J-NC)  34,34', 42 

42  00  50  1=1, NR 
NIOOTI !)»0 

R  (  1 1 =0  . 

ORU  |*Q*  00 
CO  50  J’.l.MC 

Ml  OOT ( II =MIOCT ( I l*NX I  1 , J  1 

oru  » »ofti  i  i+oeuisuaxi  i,  ji  i 

50  R 1  UkRII  l  +  SIJRXM,  j) 

CO  51! J=1  ,MC 

UDOTJUMO 

C<J|.=0. 

ncu  1=0,00 

CG  si  I  =  1 ,  MR 

MIJCT  J(  J)  *MCOTJ  (U1  +  NX!  I ,  J  ) 

,i;ci.n*ccui+c8LE(suox(i,.i)  > 

51  C.U)*C(  J)  «SUOX(  l  ,J)  , 

G=o.ca  i 

GM  =  0,00 

S5TJ  «  0.00 

MM  *i)  • 

CO  52  1=1, HR 
S  *  ORU) 

G=$  +  G 

52  NM»NN*MC0T(1) 

FN=0.000 

FM«NH 

GKkG/FK 

SST0=0$QU-G*GM 

Morrr.=MN-i 

MOFSD=-I 

' sssn=o.ooo 

00  55  1=1 ,Nft 
CO  55  J=1,MC 
J"  J 

I F (MXl I ,J) 165,55,57 

57  s=naie(suox( i,ji i 


\ . 
i 


049 
05C  | 
051 
052 
053 
054 
-  055 
056 
«57 
058 
i)bf 
06(> 
(.61 
062 
063 
064 
065 
066  \ 
067  1 
068 
069 
070 
071 

072  . 
073 

074 

■J  75 

o76 

077 

078 

079 

030 


08? 
083  ! 

<»87 

089 


092 

093 

095 

096 

097 

090 


I 


! 


I 
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0105  •'  '5S£HaSSSfliS*S/rCFreAT{NX(r,J>r 

0106  KOFSO-  ■  'iVOFSO  *  l 

0X07  '  ‘  55  CONTINUE  . 

0108  CSSB*-SSS8-C*GM  • 

0105  SEE  *  0.000  ■  -  ' 

Clio  5SE-SST0-SSSU 

0111  inssfi)  155,155.136  . 

0112  155  SSD  »  0.000 

01113  "  ‘  156  NOTE  «  NDFTO  -  NDF58 . .  ' 

■01*15  .  CO  60  1=1, KH 


DATE  H  71253 


13/24/17 


0115  ' 

A!  =  FLOAT  (MOOm))  *  -  •  . 

0116 

Off)  »  ORUl 

0117 

CO  62  "  ■  • 

0118 

SUM  »•  0. 

0119 

CO  61  J--1.KC  '  ” 

11120 

AKJ  *  FLOAT  (MXf  K.J) 1 

Ul21 

AVJ  «  FLOAT  (HXfl.Jll 

0122 

61 

SOM  *  SUH  -  3N9AKJ/FLCAT  (N00TJ1JI  1 

0123 

CX(t,K)  «  sun 

0125 

If  fl“K  1  63,64,63  •  , 

0125 

64 

CXU  ,K  1  *■  CXU.IJI  ♦  At  ‘  ‘  "  ‘  ■ 

0126 

63 

CX(K.t)  *  CX(I.K)  . 

0127 

62 

COM  INlit-  .  \ 

0128 

00  6  5  JU*l,NC  1 

0129 

65 

CU)  s  DHL Ff  Gt  !)  )-0FL0A7  (NX ( I , JU ) 1 *0C  (  JU) /DFLOATf  NQOTJ  S JU)  1 

0130 

60 

CONTINUE- 

0131 

CO  288  J=  1 ,NC 

0132 

, 

00  f J ) «0C  <  J 1 

0133 

00  289  1=1, NR  \  . 

0 1 36 

289 

011  I J  S *  OOLt  ( C8f J  t  J-DFLQAT  (NX(  l.'J  X)*DRf  1  I/Of L0ATIN100  f(  I ) ) 

on; 

2eo 

CONTINUE 

0130 

NRP  =  NR  -  1  ■  . 

0,137 

PFfNfU  »  Oc  '• 

0130 

If(NRH)  100,100,70 

0139 

70 

CO  71  1*1, NRP 

0140 

Oil)  *  0(1)  -  QfNRl 

CO  72  K=1,NRF' 

CxC.KI  ■-  C.XU.K'i  -  'CXI  1  ,N0>  -  CX1NR.K)  *  CXINR.HRI 
CONTINUE  1 

CALL  HQSYM {CX.O. RE.NRHt 
DO  111  I  *l»Nf»H 
0111  *  om  ♦  Of  NR) 

CO  79  1*1. NAN 
Rh.fNRI  *  RCURI  -  REfll 
DO  82  Jvl.NC 
CK(J)«OC( J) 

CO  03!  1*1, HR 

Cr.IJI*Cf-.U)-l!f:U  )*FLOAT  fHXU.Jl) 
crui  =  ..EfJI/Fl'CAT  fNOOTJlJH  -  GH 
CONTINUE  ,* 

NSTEP.J  * 

lllCC<.*,IRf;C5-l  ! 

IF  IMGcf  SllrC,45 )  .CQ.  0)  GO  TO  1001 
liRllEf.il1  £  J"  l  Cl  ,2C04)  tTTl  tl),l»l,8) 
UftfTeffl2tl»lC2,?005)  (7U<n.l»9,15l 
IFfHUlT.FQ.l  IHRlTEfNl'WCCl, 2006 IVNAH (IV) 


1 


106 


KCKTKAK  IV  G  LEVEL  1?  /.NOT  DATE  *  71253  13/26/17 


0161 

11  (lUIS.  f.LO  .0  ll.'Itl  VE  tfll '  1REC  1*  7C06ITMAH1 IV) 

0162 

•~f.  i  u  (..•?•  i  ■•(•(.:: so  ■.')!•  !..'.i4<  i<-‘A  1 ,  f  nahinfh i 

0163 

I'iMi  tl!i!  ’  :!:l.C:.,;-2.  il»rl;AHOIFB) 

0166 

\il!tfl:(52‘  •«F(2,;.003) 

0165 

KR  ITFIHl  M.l'-Ci  .  ‘.jC9)FKAM(NFA| 

0166 

k-- 111:16;:* :  if  (.2,201111 

0167 

wiiiTena*  txtci  i.-ou ) 

016e 

V(p.  I  If.  ( !!2  •  1  i.t  02,20031 

016 

IF  (!if.,Lf  .61  GG  TC  6001 

0170 

If  INC,  GT «6  1  00  10  6002 

0171 

6001 

iiKITt  (Hi '  IXtCl  ,20121  UlVHl  IW),  IW*1,NC» 

0172 

viK(iiah;"ixfC2,2ca3i 

0173 

or  ic  6i*i.3 

0176 

6002 

1.1: 1  vr.  1C!  *  U-'IC  5 , 201 2  1  ( JL  VR  ( it:  1  ,  IK*1,6) 

0175 

>.!*  2  T  £  t  f»a  •  )<Ur2,20131(JtVU«IK)  ,1HH7,NC) 

0176 

6002 

CUM  INIIF 

0177 

56 

OH  92 

0170 

Pill  =  R(  1  1/  t  LOAT  (  N 1  DOT  (  I  H 

■  196 

0175 

On  *5)  1 ,  K'C 

rio 

oiec 

(,.\  =  Nxn.jj 

2-A 

0131 

11  (v.N-l.l  21. 1 , 202,203 

2*'l 

0102 

203 

Mniud.Jl  -  <uisi:(  l ,  ji/Gt: 

:->2 

0133 

S.OXX  (  1  1,1  l»S')KT  IASS  1  (SCiKXn  ,d  1-CN‘SUftXl 1  ,  J)**?I/(GN-1.I 1 1 

0166 

(ill  TO  93 

2.16 

0105 

202 

SORXd.J)  *  0. 

.70  3 

0106 

GO  TO  53 

2V6 

0107 

2C1 

soma  t  ,.n  =c. 

2.i  7 

1108 

:,y,(X(  1  ,J1-  0. 

2.ie 

0105 

33 

COM  I  Ollr 

2:9 

U50 

32 

MlltMMJl 

21'. 

0191 

r.n  ,c.6  j;i,cc 

.■*11 

0152 

2«6 

c« ,u  =*  (.( ji/fi.c/.r  (Noonun 

212 

0153 

9  7 

com  iHiit 

■ 

0196 

:;fi  207  1^1  ,1(0 

216 

0155 

■nr.  >.  iii-xiin 

215 

0156 

1.0.  x  |t(  |  I 

216 

015  7 

209 

Jl  VX  *=  .II.VAUI  -  (JI.VAII  1/1001 

0156 

0155 

« 

II 

'J 

Is 

, 

02uC 

11  ( •Ini'  ( 1 I’.rC ,  M.)  »t:v»  01  GC  TCI  1001 

02«>'l 

1003 

hi:  l‘i  K  (1.1  *  IFf.Ci  ,70031 

0202 

WKIUM1.?*  ll'.EC 2,2003) 

020  2 

MS  UK*-? 

0206 

Il'.lC'i  IF  (;C  1  -1 

0205 

IF  (HOill  1  S»1:C « 65  1  „EQ.,  01  GO  VO  1001 

0206 

Ki.  l'.NC<- 1 

02(17 

SUP,;  ( i  ,no.s  )*rr, 

020  0 

1006 

IF  (Ml.1.1  !•.  (1  )(•::.'  TO  6906 

0209 

ir  (NCI  .Cl  ,(,)GC  TO  6005 

0210 

6006 

I.K  1  ft. (M  '  I-.EU  .2056  1  Jt.VK,(S(mx (I , J 1 ,  J*> l.NCl  1 

0211 

unirrii.?*  ikf.cR,  20031 

0212 

GI)  TC  60..6 

0213 

6005 

i:-.iir.i«i  >  inr-c l, 205*1  j(.vx, iswxi i  ,ji , j*i,6 i 

(1216 

V:tUTE(K2*  II.fC2,2015l  (SIKiXd,  J)  ,J«7,NC  1 1 

0215 

6006 

cm,  n. ■(.,■;• 

0216 

MSTF  f’=6 
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021? 

0218 

0219 

0220 

0221 

0222 

0223 

0229 

0225 

0226 

0227 

0228 

0229 

.0230 

0231 

0232 

0233 

0239 

0235 

0236 

0237 

0238 

0239 

0290 

0291 

0292 

0293 

0299. 

0295 

0296 

0297 

0298 

0299 

0250 

0251 

0252 

0253 

0259 

0255 

0256 

0257 

0298 

0259 

0260 

0261 

0262 

0263 

0269 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 


mECMfteci-i . . .  ‘  " 

IF  (MOD ( I REC»95 )  .EQ.  01  GO  TO  1001 
NXCt  »NC1 1»NC  . * 

1005  IF (NCI. LE. 6100  TO  6007 
IPIMC1.GT.6)  GO  TO  6008 

6007  WRITEINl*  IREC1.2016MNXH.  J)>J«1>NC1) 
WRJTEIN2' IREC2, 20031 

GO  TO  6009 

6008  WRITE  INI* IREC1.2016) <NXI l>  Jl>  J=l>6l 

.  HR  IT  E I N2' lREC2»20l7)(NX(I»J)fJ«7tNCl) 

6009  CONTINUE 
NSTEF»5 
IREC  =  IREC1~1 

IFIKO0IIREC.95)  .EQ.  01  GO  TO  1001 

1006  IF INC. LE.6 1GQ  70  6010 
IF  INC.GT.o  1GQ  TO  6011 

6010  WRITE  INI' 1R£C1,2018)(SQRXCI» J)>J*1»NC) 
WRIT£(N2'II!EC2> 20031 

GO  TO  6U12 

6011  WRITE  I  111'  lRECl>2010)(SCRXllt»l)>J*l>6) 
WRITE <N2'IREC2 >20191 1 SQRX lit J1>J*7>NC» 

6012  CONTINUE 
207  CONTINUE 

NG  *  NN 
RG  -  GN 
NSTEP-6 
IREC-IRECl-l 

IF  (MODI IREC.95)  .EQ.  0>  GO  TO  1001 

1007  WRITE! Nl'(RECl>2003) 
kRITE(N2':R£C2, 20031 
NSTEP=7 

IREC*  IRECl-l 

!F {MOD ( I REC »95 1  .FO.  01  GO  TO  1001 

1008  WRlTE(Nl'IRECli202U) 

•WRITEIH2'  IREC2.2003) 

NSTEP=»8 
IREC*  IRECl-l 
Cl NC 1) *RG 

IF  IMOO (IREC.95 1  .EQ.  01G0  TO  1001 

1009  IF  (NC1.LE.6IGG  TO  6013 
IF (NCI «GT .6 IGO  TO  6019 

6013  WRITE  INI' IKEC1 ,2018) iCt J1,J*1,NC1) 
WRITEIN2* IREC2, 20031 

GO  TO  6015 

6019  WRITE(Nl'lRECl>20i8)(C(Jl>J*l>6» 

WRITE  1  N2»  IREC2 >20151  (C ( J  1 , J*7>NC 11 

6015  CONTINUE 
NSTF.Pa5 

NDOT  J (NCI )*NG 
IREC-I REC1-1 

IF  (MOC ( IRECi 9$  1  .EQ.  0)  GO  TO  1001 

1010  IFINC1.LE.61G0  TO  6016 
IF (NC1.GT.6)  GO  TO  6017 

6016  WRITE  INI'  IRLCl  >2016MN001JU)  >J«  WNCll 
WK I TEI N2* IREC2  >2003) 

GO  TO  6018 
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226 

227 

228 


FORTRAN  IV  G  LEVEl 


AN  01 


DATE  -  T1253 


13/24/17 


n 


0273 

■  6017 

i:.".  r  i  c  i  inn  iu  c  l ,  ?o  u.i  woo?. tu  i .  i  ,  6> 

0274 

I,'ir(:<ll2‘  1REC2  i2(H7MffC0T.UJ  1  iJ=*7,NCl  1 

0275 

601  :> 

i.ci.l  INtif. 

c 

C 

r.LT.l  6  AUAI.VSIS  OF  VARIANCE 

0276 

215 

5.,  RAD  B  Ci 

0277 

CO  221  I“1 «NF 

0278 

221 

S  3»AD=SS><AC«RE<  1  )*0(  1 1 

0279 

V510  =  SSTG/FIOAT  (NOFTO) 

C2P0 

■ 

AOFttS  -  SP.-l 

0281 

IF  li’lliFRO)  222,222,223 

C-202 

222 

VS  Si)  «  <).. 

C283 

o  j  ro  r>A 

0284 

223 

’vSW)  -  S 5ft AC /F  1.0 A I  (NDFRCI) 

02  65 

224 

S  <  0.00 

0206 

00  225  J’l.NC 

0207 

225 

s  —  s  ♦  ecu )<-»2/f)FioAm,oorji j) i 

0208 

i  --  5~&*G0 

0289 

<!■)[  |  M  *  NCF  5*'  -  N9FR0  -  NC  +  1 

0250 

!!■  Cil.F  IM7  !  226,226,227 

0291 

226 

(>or  iM  0 

0292 

VSI.’IT  0. 

0253 

GO  CO  220 

0294 

227 

SS1NT  “  5550  -  COLUSSRAO)  -  S 

0295 

VS1HT  =  Si>  till  /FLOAT  IKDPIIU) 

C256 

220 

SI!  -  U.OU 

C297 

CO  22V  1-1, NR 

0250 

229 

SO  =  SO  ♦  OKU  1»62/0FL0AT  INI  OUT  {111 

0299 

so  =  sn  -  o*Gft 

0300 

SSCAO  =  S-SIHsUlLf  1SSRA01 

0301 

MKCCL  -  NC-I 

0302 

IMNGf  C.:il  1  221,230,231 

0303 

230 

VSIUI.  v  0. 

0304 

GO  10  232 

<’305 

231 

•V'.dlL  *  SSf.AC/1 1  OAT  INDPCOLl 

0306 

232 

VS. SO  r  SSSO/rUAT  (N0FSD1 

0307 

1 F (OOF  1  1  223,233,234 

0300 

233 

FPi*  -  lu 

0  309 

VSO  "  e. 

0310 

FCOL  =  U. 

.0311 

FIM  *  0. 

0312 

fSUil  '•  <1. 

0313 

GO  TU  235 

0314 

234 

VSF  «  S5F/FLCA1  (MlFEI 

0315 

61!  0  =  VSlU)/VS6 

0316 

feet  =  vsc.r.i/vr.£ 

0317 

r  1  NT  a  VS1NI/V5E 

0310 

6 >113  >•  VSSC/VSF 

0315 

235 

If  ( V',  1  NT  1  237,237,230 

0370 

237 

IT. 01  -  0. 

0321 

r ecu  “  0. 

0322 

Cu  1(1  239 

0323 

230 

FPCI  =  VWiJ/WIWT 

0324 

i  r  iii,  i  •>  vsera/vsihT 

0325 

239 

G.MdO. 

0326 

CO  001  Ml  ■ 

239 

240 

241 
24? 
243 

245 

246 
?47 
246 
249 


251 


254 

255 
246 

257 

258 


260  . 
242 


266 
•'?o  7 
260 
'260 
27i 

271 

272 

273 

•  274 

275 

276 

277 

278 

279 

280 
281 
282 
203 
264 
285 
28o 

287 

288 
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FCP.TI’AK 

IV  0  tEVFL 

19  ■'  AK17T  '  DATE  *  71253 

'  13/24717 

0327 

'  601 

CAI6»0Alilftl:  ( I  UrlCIAYCNlOGT  (  1 5  l/Fl.OATINN  1 

as  2 .1 

ro  241  !-'!,?!« 

0325 

*  241 

>‘!11  «  :■-!:(  !)  C  S'.'lGUGMl  GAM 

033(1 

H:  (filial  244 , 244*245 

291 

o.m 

245 

50  240  1^1, !;!:!! 

292 

0332 

:p  -■»  in 

293 

0  333 

CO  240  JMP.AR 

294 

0334 

ir-IRtll-RIJll  242,240,240 

296 

0335 

242 

TEH  o  f«(I) 

29(> 

0736 

Cl  11  "  RIJ1 

?V7 

0337 

RIJ)  -  TEH 

?.9fl 

0336 

ITEM  =  JLVM  11 

299 

0330 

JLVAUI  JL  V4  ( J  ) 

30<) 

0340 

.11.  VA ( J  1  >■  ITCH 

3.>  1 

0341 

24(1 

CW.TI'IUC 

302 

0342 

244 

l.'CH  «  NC-1 

303 

0743 

(in  249  J  =  1,NC 

304 

0  344 

245 

(.(.|JxC(U  JMGA):«SnGLIGHI 

0145 

1HNCM)  246, i^t,  247 

306 

014  6 

247 

Oil  25Q  lal  ,HCrt  ' 

307 

0347 

* 

It*  =  !U 

0343 

CO  250  J,!  IP*  AC 

309 

0340 

IFICUI-CIJll  252,250,250 

310 

0359 

252 

UK  =  C(l| 

311 

0351 

(.(  I)  «  C(  Jl 

312 

0  152 

C.(J)  =  UK 

313 

u3C3 

IUH  *  JI.VU  I  U 

314 

0  '54 

.iivc.tn  *  jLVi-ui 

316 

l  1ST. 

JLV.IJI  »  nil1  ' 

316 

1.356 

250 

COM  lM.it: 

.317 

(1357 

246 

COM  I  COE 

0.150 

liSICP®  J 1 

i.'Tc-incci  i 

0340 

Ir  (Knot  tcr.c.,451  ,10,  01  GO  TO  1001 

(.341 

101?. 

■V.MlHM'll.fcU, 20031 

(1342 

Vf<nt(N2'lkSC.2, 20031 

03(3 

•7.3u:p*io 

0  344 

i,ec*ii!iu-i 

('•365 

ir  (m,;i:imicc,4!i)  .no,  01  cn  to  tool 

* 

Olf.6 

1011 

l-P.IYf  IM»  IRE  Cl  ,202.3  IPKAll  I0f  Al 

0  367 

1:A  1  ff.  1 X2  ‘  IAEC2 ,2003 1 

* 

0.365 

1(6  TCI 1 12 

0364 

tltlC-  HtSCl-l 

* 

0370 

If  <i:(ic.llf!f.f.,4r.»  if.O,  01  GO  70  1001 

0371 

101.7 

ir (i.'K.i.c.Mr.i:  to  6019 

0  37? 

ir-um.cT.oic.(  to  (.020 

(.*17  3 

(.019 

‘U:  IT  Cl  1.1  •  llll.Cl ,20161 IJIVAI  l),I»l,NRI 

0  3  74 

t.l(irrili2<  11(512,20071 

03  7  5 

CO  TO  (.0  21 

• 

0376 

6020 

liltli  l(M»  l-lf  Cl,  20161 1  JLVAUI,  I’  1,6! 

03  77 

1.1.  IT  I  l((2 '  IREC2 ,201  71 C  JIVAI 1 )  ,  1*7  ,NRI 

0.1 7  0 

6021 

COM  IMi£ 

0  7  75 

OS  TCP" 13 

0.700 

if.rc- 1  nrc  i-i 

0301 

II1  CUM  lime, 45 1  ,E0.  01  GO  TO  1001 

03d? 

1014 

1C  (ti.1.1  C.ftlCO  VO  6022 

110 


FORTRAN  IV 

0383 
.  0334 
03 £-5  '  ' 

0386 
'  038? 

0388 

0389 

0390 

0391  ' 

0392 

0393 

0394 

03.95 

0356 

0397 

0398 

0399 

0400 

C401 

0402 

0403 

0404 

0405 

0401: 

0407 
0408 
1/409 
04  lU 
0411 
<•■412 
0413 
0414 
0415 
.0416 
0417 
0418 
0419 
0420 
0421 
042.2 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
043S 
0414 
0437 
0438 


G  1EVEI  19  '  '  ANO t  -  “  OAT£*«  71253'  '  13/24/17 

IF<.‘lit,G7.6>cr,  10  6C23  "  " 

602 2  K.'<  I V  C 1 K 1  *  l  ft  EC  1  ?  20  i« )  I R1I  > ,  !<•  1 ,  NR » 

K«  l  V  £  1 N?  •  !  R  F.  (. ,  7'j'ii  i  ' 

GO  Tu  6024 

6023  11 F  »M •  lRci'.l »20.Ve>  (2.t  1  >»  l^i*  61 ' 
l«a  I  r*.  {  112  ‘  I  RF  C.? ,20191  If!  Ill  ,  t«7 1  HR  1 

6024  CONTINUE 
6S  758*33 

lfi£CMR£Cl~l  ‘ 

.  i?  <::ocuficc,43i*ro.o'»  go  re  1001 
i06o  Min:e<Ki'ineci.2u!*3i 
l';7t  r£(N2*  IREC2<20031 
Id  7-:  r-- 1 4  ‘ 

IPKCl-t 

irRuGURfcC»45)  ,FQ.  01  GO' TO  1001 

1015  v.'ur;.<Ni*titFa,?023»ffjA!»i*:r8» 

».2ir£<N2*rftEC2, 20031 

K51Er«l5 

JREOlRECl-l 

[f  HOCl’lRfc'C,  451  .£0.  01  GO  TO  1001 

1016  I>-  {;:£*IE«4)GC  til  6025 
IMNG.GT.fe'GC  10  66.76 

6025  I.'.  Il  l  (W.»  i;<cCli2«"16MJLVf;t  Ilf  I-l.NC) 

»<?. IT F. < f:2 ‘  l f;t C 2 * 2 1133 1 

•  .'1  TO  6027 

6026  <•?.!  I 1  l/'ECl  t?!'*6 1 1  Jt VC{  11  *  1*1 16 1 

Nil  IT 012*  1.7FC2  t.!Cl  71  UtVlU  !  1 ,  I*7»NC)  ! 

6027  CMlT  l-’.Uf. 

1 7  <■  c  i6 
!7U-tii£'Cl-l 

(<  (in’IRURFCt*:''!  *E0»  0)  CO  TO  1001 

1017  !?  (.V.U.Nl  G'.l  fO  6ti?B 

n  ft..f  .r.r, «. ) 

6C28  hit  11  r.  11.1 '  llU;C  :  »?01  U)  1C  I  |1»1‘1.NC» 

■  l.2.1inoj'ir(i:C2*  20031 
C>«  <C  4030 

6029  li'U  )  i:  1M  •  l!i£C  1  t?OlH)  (C(  I  >,  IM.6I 

1 J  I V i;  1 N2 W R £ C 2 , 2 0 1 9 )  1 C 1 II , I ••  7 , N C I 

6030  COM  I  .VOS 
260  C.A'I  IMIfc 

n-.ic;--)  ? 

»Kl'(.nl4£0.1-l 

ir(M{lCllRfC»4M  .00.  01  GO  TO  ICO! 

1018  KJ.I  U  UUMRf.Ct  .20031 

*  1.0  IV!;  t  M2 '  IIUC2t  2003) 

NS  It- PM e 
Ifi£C“II!£Cl-l 

H  (fifir.(lRFC»45)  -E'-l.  01  GO  VO  1001  ■ 

1019  It  t'!U!.T.(:0Mi;s;R(TCIMl»(f:fCl,2&24IVM*-Ml!V) 
i I  1»U.L  I . ro.o  hit! I  TCUJl  *  I :<  fcC )  *2024)1  NAM (IV) 
htir:  i)i2'  mtC/.,?C.03l 

IIS  11  I'M  9 
I  .lCMriKCl-1 

jf  !:<.“!< 1 1 nr.c . *.i* »’  ,r<u  o)  go  to  1001 

1020  rm  if  mi 'isf  ci  ,  'itn:) 
hit  life  11)2'  mtc;-, 20031 


iiv 


FORTRAN  tV  C  LEVEL  19 


% 

04  39 

NS Ti  Pa 20 

•  04  <.0 

IRl  «.*-IKl‘Cl“l 

0441 

IF  (710.71 1«K. 451  .i'Q. 

0442 

1021  mi  jTrtm f ireci ,20757 

• 

0443 

tCITf  (N2*R£C2, 2-3267 

1" 

^  * 


0444 

0445 

c-446 

0447 

0446 

0449 

0450 

045 1 

0452 

0453 

0454 

C455 

0456 

0457 

1,458 

0.459 

046C 

04(1 

1/462 

04(3 

0464 

C.4eS 

f.466 

0467 

0466 

04*9 

0470 

li  4  7 1 
0472 
0473 
04  74 
0475 
0476 
0477 
0476 
.  0479 
0400 
0401 
0482 
0463 
0464 
04  65 
0466 
0487 
0406 
0409 
C49G 
C4S1 
0492 
0493 
0*94 


A HOT  ‘  HATE  «  71253 


0}'  CO'  TO  1001 


NSIFf-21 
li’.l-T.  "1  RFC1-1 

tF(f.CG'UAFC,45>  •  t-1.  0)  GO  TO  lOol 
1022  WRtTtt«l,tRECl#20WI 
(••U5l:tN2»tJi£C2,2*)C3) 

’  6SJCP=?2 
!«»:<:*•  r  Rj-ci-j 

If  (HUGO SEC,  45  7  .ro.  0)  CO  TO  1001 
1023"  WnCliM'IKtCl  »2>)2 7! r HAH  (HFfl  7  .HI)  F/<0,  SSR4fi 
HI1HN2'  lRgC2»?«?-J>V5AOrfBU,f£.OI 
KSrFI>*?3 
1 9f  C  =  J  HSC1-1 

if  (Hrii>u«er.i45i  >no«  ot  go  to  ioui 

1024  M<t'f  H«!  •  J  »f.  Cl  ,?<3?4H'H4!i  (NFB )  ./ ICFCOL ,  5SCA0 
i.4ir5!fi?‘  ntEC2t202fi)VSCOL,FCOL,fCOU 
NSTCP-24 

{RtCn  I  i-'CCl  “1 

IF  (HOD  l I85C.45  t  .CO.  07  GO  TO  1001 

1025  HP  IVi’IH)  ‘  !f;f  Ci  i  tG  kiIFNAHCJIFAI.F  NAMINFB  t  »NOF  I  HI «  SSINT 
•  MITHIM?«  lftf.C2  «2«31 7  VStHt  .FlNf 

NSW- 25 

tseoisrci-i 

riMMf.Oi7!<7:f.»45)  .CO.  0)  GO  TO  1001 

1026  kUirUM'  lilnCJ  ,2m}3) 

K<ir:-(1.2'  t.".EC2f2G0sl 
NStStWO 

jr.£<;  ••  i  P£f.j  -l 

jf-(:ini)U!;i:C,4M  m'*:.  o)  go  to  jooi 

1027  warn iN}*ift6ti-7,J32;«or-s:7tSiSO 
.KHtr.'tN,!'  1R6C2  ,;<.■■<!)  VSSb,  FCUO 

NSV£F*?7 
IK  !:C  •*  I  *4  f  C 1  - 1 

IF  tBfr.IIStt.45)  .to.  07  GO  TO  1001 
io?G  mt m: (m j  •  m a . ?c .».< iws . sse 

Ui )  TK  ( t.o*  |Ktf.2,2!)34)  V5C 

NftUF*2A 

I P  f  I H  £  C 1  *  1 

IP  t»;ont trt)C. 45  J  *fO.  0)  Go  Tl)  1001 

1029  m.  i  u  ( ti  t '  i  r  f  •;  j  .  r<‘  s »  n.u*  t  o  .  s  r.  i o 
Hfiivi  (f.2» ihcc;;.; rt'-'.'vsTO 
ir-tnorf-7  270.270.7/1 

27i  mis:-  *  soartvin 
HST«/'i-29 

nt  m*. -» I  •*{'»*.  1  -  i 

triMOi;i j.ihc>4:>>  .so."  0)  go  to  1001 

1030  winedii'tsFci ,p(m3) 

;;f:  tr  i!»».C2,;-o;ni 

I H I C  *  I  >1  '■  f.  I  - 1 

IP  l*'OGt!R£C.45I  *t*0.  0)  CO  TO  1001 

1031  fcRnfcttSlMRtC-.PuCA) 
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>30 

351 
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FORTRAN  IV  G  LEVEL  19 


DATE  »  71253  ' 


13/24/17 


HRnEIN2«lRCC2»203Mn;;Sc 
1  1 F  IMF  HIT  >  27 30  #2730 .  i 74 
KH51N  -  SGRUVSIM! 

M5TE1--31 

tiuoiseci-i 

IF  (MODI  I HEC» 45  1  .CQ.  01  GO  TO  1001 
>  WRITE  IN!*  IREC!.  ;  2003  1 
liRiTE ( N2*  IREC2  .2G371P.NSI  N 
I  NSIEP-32 
)  IREC^IRECl-l 

II  (MOOtlR£C,451  .EQ,  0)  GO  TO  1001 
)  WRtTF  UC  IREC!  ,20031 
till  1 1 F(N2*  IREC2 ,2033 ) 

GO  TO  1049 

IF ((FLAG!  293.293,294  *  '  ‘ 

CO  255  IM.tUNK 
Rill  *  REttl 

cm  *  tiin  '  . 

iiEin  •-  cEin 
cm  =‘00(11 
tsm  «  k(j). 

OBUI  n  cut 

CALL  INTER! I V 1 
RETURN 

t  FOP'IA  f  (GSX.'PAGC  *  14.  'L*  .16K/I 
I  FORMAT (5SX .‘PAGE ’» !*'.»' R* , 16X/I 
»  Fr.RKAVt.30X) 

4  FllRKi  f  (S3X  ,0x4  ,157./ 1 
3  FO;:H/.((TA4,52X/» 

b  FOftKil  (33X**  VAR  l  AliLE  t  •  >A4»  *  I  TARLE  OF  MEANS' ,  1 5X/  > 

7  FORMAT! 'ANC  EFFECTS  (  »,A4,3  >  VERSUS  (  ’  ,  A4  ,  •  I  *  ,44X/ 1 
3  KlftMAT ( •  ROWS  »',34‘<»*C  C  1  II  K  N  S  ■  », Aft, I7XI 

)  FO#»ATIAh.«X.«IK  EACH  &LUCK.  ROM  1  DENOTES  CELL  MEANS,  ROM  2  OtNLiT 
US', >2X1 

)  .FORM  AT  (*  CCtl  S  I  7i  ,  AND  RGI,  3  DENOTES  STANDARD  OEVIA  TION.  •  ,31  XI 
l  F0RI4A  M*  COOED ',34>:,<C  G  DID  LEVEL  S' ,10X1 
l  FQ.'MAI  ( •  LEV. ',13, 511(1, 22X)  ‘ 

3  rOi:fUT(/ili3,2'.lX» 

,  FORMAT  ( 12.  IP 6 CIO.  3,  IPX  i 

5  FORMAT  1 1 P6 flu .3, 20X1 

i  FORMAT ISX.13.5I10.22X! 

1  For.iiAT  it  t  ic.  io:s> 

3  KlFHAl  I2X.1PAC-1G. 3,17X1 
)  FORMAT  ( IPAElCp  3,  20X1 
)  FOIKAT  (’  COL. '  ,7  rX) 

3  f0RKATO5K, 'ESTIMATES  OF  »,A4.'  ADJUSTED  MEANS,  ORDERED* ,23X  1 
«  FORMAT  ( 20  X .  *  ANALYSIS  OF  VARIANCE  FOR  VARUdLE  ',A4,22X> 

5  FORMAT I5X, • SOURCE  OF  VAR l AT  I  ON' 1 14X , 'O.P. • , 7X, ' SUM  OF  SQUARES' , 1 7X 

II 

h  FORMAT I5X,' MEAN  SQUARE ' , RX , • F  VS.  ERROR', 3X,»F  VS,  INTERACTION' , 
125X1 

1  FOS.UAl  (.:X,A6,4Xr  MR0«S1*  , U 0, 1  Pf.20,6 , 18X J 
3  FD  Ai»  AT  U PC20 . 6  > I:  .-1 1 . 3  .-26  X I 
)  FilN'tAHIIX,A6,4::,'CCi'.L:*.l'  ,IU,1PC?«I.6,18X| 

)  FORMAT  ( 5  X,A6  ,'*•  i  AtT , '  I  INTERACTION!  • ,  III,  IPE20.6, 1SX! 

I  Ffll<!!AIUPE20.fc«ri 7,3,43X1 
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FORTRAN  IV  fi  tEVEl  19 


- •— -fiijor . 


OAT6  -'71253 


13/24/17 


2032  FORHATllOXt*  SUBTOTALS*  15Vfi  ll8»l9E2t!»<»*18Xl 

2033  FORMAT  U2X  ,UX!'Oft‘ ,7X,  U  8. 1?£20.6»IRX> . 

’lots  FOftHAT {l2K* *Tai’At*t7X«I18t  1PG20«6«  10X1 
203b  FORM  At  (•  FOOT  N£AN  SQ'IAHc  ERROR  *  ,lPE2«».fc,35X) 

2037  FClRrtATI7X»  *ECOT  HE  AN  SO*IAR£  INTERACTION  -  ,  lPElb.6. 2bXl 

1001  han  EINl*  !RF.Cl,2GC!  )l”-iWT 

WUTEIN2' IUcC2»2002>l»oUttT 

Go^o'lioliatiooa, 1004,1005, 1006, 1007, 100B, 100*1, into,  1011, 1012, 

•lSl3?»«^wS,lOlSlOn.i0ia,lO19,lu2u,lO21.lO22.l02».XO24,lUi>. 
2 1026, 1027*  1028,1029!  1020, 1031, 10  32, 273,  U.60),NSTEP 

.ENC  '  ' 


0556 


359 
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FORTRAN 

IV  G  LEVEL 

18  "  EOSYH'  ‘  DATE  «  71233  13/24/17 

0001 

0 

•  C  ' 

SUBROUTINE  ECSVMI A, 3, B,N«t 

SOLVE  A  POSITIVE' SEX IOEFTnIJE  OR  POSITIVE  DEFINITE 

0002 

c 

c 

SYMMETRIC  EQUATION 

COMMON  N*  lOVLYt  ITY?C»  TTL  ( 15) ,  VNAP.l 101  »f-NAM(2 )  ,NLVL ( 2 1 » NEMO ( 2 , 12  1 , 
UEV::L(2»12»tNRA,NCA,»m0,NCB,JA8(81,Nl,N2»NV8L,Nf  ACT,NG12,.MUL  T. 
2NSU3J,NLUV  ,NHl,NK2,NT,!S£C.f,U.f;JZ,K0UNT,NDlAG,  iRECl,lKfcC2,  I'<EC3 
3'NYRAimO)  *TNAH  10ULUVI  iO»,HMLUV<  10) 

•  0003 

0 1  PE  LSI  GN  A (12,121,0(12)  »8U2!,  AAI 76 1 , T (781 , 0(  131 

0004 

X  J  -  0 

010 

0005 

CO  1  J*1,NR 

Oil 

CG06 

• 

DO  1‘  1=1  ,S 

012 

0007 

IJ  *  1J+1 

ol3 

0008 

1 

AA(IJ)  =  AIl.Jl’  . . 

ul4 

0008 

NR  A  <=  NR 

tilC 

0010 

NR 8  *  NR 

016 

0011 

NCA  »  NR 

017 

C012 

NC6  *  NR 

u  1.8 

0013 

CALI  INjLO ( AA,T «  01 

uio 

0014 

* 

IX  *  1 

02C 

0015 

00  2  1*1, NR 

021 

con 

IX  *  1X4  I- 1 

»22 

0017 

JX  *  1 

023 

0018 

BUI  «  0. 

024 

0018 

CO  6  J=1,NR 

u25 

0020 

IF(J-I)  3,3,4 

0021 

3 

JX  *  J 

027 

0022 

GO  TO  5  •  ■ 

028 

0023 

4 

JX  «  JX4.I-1 

028 

0024 

5 

IJ  «  IX  4  .JX  -  1 

030 

0025 

6 

BUI  *  Bill  4  TUJ)*OIJ‘ 

W31 

0026 

2 

COhT  INIII: 

1)32 

0027 

TO  10  1=1, NR 

•u33 

0028 

. SUM  *  0. 

1)34 

(.028 

CO  12  J=1,NR 

•ns 

0030 

12 

•SUP  =  SUM  4  A(  1  ,JI*(U Jl 

036 

0031 

IF  10  Ull  13,14,13 

0)7 

0032 

14 

DEN  «  1»  • 

030 

0033 

GO  TG  15 

038 

0034 

13 

DEN  *  ADS  I0UJ1 

040 

0035 

■  15 

IFIABS  ISUP-CUll/CCN  -  l.E-61  10,10,16 

0036 

10 

CONI  INUC 

('42 

0037 

•  GQ  ID  20 

1)43 

0038 

16 

CONTINUE 

0038 

20 

■  RETURN  ‘ 

046 

0040 

•END 

047 
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•-OUTRAN  IV  G  LCVF.l  1$ 


OAT  6  «  7125)3 


13/24/1/ 


10tlf;0UVlKH  ISfV.EMlV) 

‘XIEi'YAL  ?rlf:T 

rx:;.v.w  t *>v l\  ,  ?  rvre;  vtl 13.5  i  , vham i a ) , f  nami  2 » , nlvl  i ?.  > , henoi  ?. ,  1  ?  > , 

KH VS L ( :: ,  1  2. I  , iVt A , A r.A , ««l» .::CB,JAC(  5)  .HI  ,N2,NVi'L,LPACI. NC.  1  i  , MUL  T , 
2NS‘J9J,::UI/  ,  f>U  Hi- ,  {  S!.C,;J1  2 ,  N  J  Z  , K UUM T- , U Is  ( AC, » 1R6C1,  IREC2,  l.'EO 

3,N IRANI  ;:i)  ,  T«AM  J  01  ,U)V<  iCI ,  IlHUiVI  10 1 
Cl M!:«5 IflJi  -I  esc  IIS* 
cata  f.r.i/.«/‘a»/ 

CALL  GttliltUCSlZEt’ 

.  MA5.K"lt>10'-12731 

CALL  GCPf K (MASK.PFINT) 

CALL  GERAS  C  1001 

CALL  GPOPLYl*  *,1,1.400} 

CALL  GKOPLYIMHE  ANALYSES  CN  THE  F0L10WNG  VAM AfcLCS  ARC  N0M  COMPL 
1ETE,  »,l)7,r,^00) 

IFlNULT.FO.l  >NP.1TE<4,?5)  ! VNAH( I J ) , I J*l , IV ) 

IF  (HUI.  V,  L0,U  }URIT£(4,20)(  TNAHt  I  J  1  , 1  J  -  i  ,  I V ) 

25  FORMAT  ( lu ( 2X  »A4> ) 

CALL  »:Lil.C.M»EXT,NCn,€4flO) 

CALL  GR0?l. \'l  TEXT  ,JiCF,  £400 ) 

CALL  GROi'l.YI  *  *  »l,£4G0) 

CALL  GP.OPLYl ‘PRESS  KEY  1  TO  CONTINUE  WITH  CALCULATIONS  OR  KrY  2  TO 
l  STOP*  ,50,5400} 

CALL  GSOPLX  ‘CALCULATIONS  AT  THIS  STAGt. ‘ , 27,6400) 

10  CALI  GW  A I T 

tnN»l-C.30»;iP.K.EG.l)C.C  TO  20  :> 

IF  tfl.r.0,31  )G0  TO  210 
IF(N,EQ.2)G0  TC  75 
GO  10  10 
75  NVF.l-lV 
203  CALL  G IIP. AS  1100) 

CALL  Gfi.USE 

210  CALL  GFP.ASI1C0) 

•CA(1.  GRKLSf  /XL. 

stop  /w-Ly 

400  GU  ru  210  /  &  ipy' 

F»:c  ts 
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OOOl 

0002 

0003 


0004 

0005 

0006 

0007 

00C6 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0016 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

oo2e 

0025 

0030 

0031 

0032 

0033 

0034 

•0035 

0036 

C037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

C045 

0046 

0047 

0048 

0049 

0050 


SUBROUTINE  OUTPUT  '  "  . 

EXTERNAL  Pf  HIT 

COMMON  N.lUVLY.I  TYPE,  TTL  T:f5 1  ,VNAN(  10  t ,FNAM(2 1.NLVLI2 1.NENDI2. 121, 
lL£VEH2,121«WA,/«CA,NRa».‘;CBf.|AH(8l  tHl,H2,NV8L.hP4C7,Hf,l.:,mjn  , 
2NSU3.I.NCUV  ,  MU  ,NH2,  NT  .1  SCC.Nl  2,  NJZ.K0UNT..ND1  AG,  IREC 1 , IREC2, J REC 3 
3.NTRAN110) , 1  NAP  I  1 01 »  LOVl  1G1,MNLUV(  101 
Cl  PENS ICN  IE XT (181, TEXT 2 (201 
EQUIVALENCE  (TEXT(l) *TEXT2(ll  1 
‘  OATA  CS IZE/' 8'  / 

CALL  GRIHITICSIZEl  ’ 

N— 1 

HA SKI* 20 13 26 59 23 
flASK  *211 39  29219 
NC-72 

IF  (.MULT.  L'Q.O  1CALL  CCPFKIHASK  i.PF  INTI 
•  IMHULT.EO.il  CALC  GCPFK I  MASK ,PF INTI 
IREC1*  1  . 

IREC2*1 

3  FORMAT  1 20A41 

CALL  GKUPLYI *  • , it £4001 
CAU  GROPLYI  *  '  , 1 .6400) 

CALL  GROPLYI'  KEYBOARD  FUNCT  IONS  S  •  ,24  ,C4o(>> 

CALL  GKDPLV (  •  l  ALTERNATE  PORTION  UP  CURRENT  PAGE.  «, 46, 

1C400 1 

CALL  GROPLYI  •  2  INCREMENT  PAGE  NUMBER.  •  *34.  f.400) 

CALL  GRDPLY ( •  3  CECRCMENT  PAGE  NUMBER. 34, £4Uo  ) 

CALL  GROPLYI  •  30  RESTART  PROGRAM.  •  »2t!tE*tOi') 

CALL  GROPLYI'  31  TERMINATE  PROGRAM.  •  ,2u,  GaOj  1 

CALL  GRDPI.Y<  •  •  «  1.&400) 

IF  (MULT.EQ.  1  )  CALL  GROPLY I • PRESS  KEY  1  TO  PRDCEFD  -TO  THE  FIRST  PA 
1GE  OF  YOUR  UNIVARIATE  RESULTS.'  ,fc»  .C4001 
I F  (MUL  T.  L'Q.O  I  CAIL  GROPLY  (•  PRESS  KEY  1  TO  PROCEED  TC  THE  FIRST  PA 
IGF  OF  YOUR  Hlil  T IVAR I  ATE  RESULTS.  • ,  73 » f.4t>0) 

5  CALL  GVAIT 
.  IF  (N.EQ  -  1 1  GC  TO  15 
IF  (N.F.Q.301  CO  TO  75 
IF (M.EU. 311  GO  TO  50 
GO  TO  5 

15  CALL  GERAS! 1001 
00  16  1*1.45 

RE AO  IN 1 * IREC19TEXT2 

16  CALL  GROPLYI TEXT  ,NC»  G400  I 

17  CALL  GliAIT 
IFIN.EQ.il  GC  TO  30 
IF  (N.EQ. 2)  GO  TO  15 
IF  IH.EQ.  3 1  GC  TO  32 

IF (N.EO. 4.0R.M.EQ.5. OR.N.EQ. 6.0K.M.EQ. 30 1  GO  10  75 
IFIN.EQ.31I  CO  TO  50 
GO  TC  17 

25  CALL  GERAS! 1  DO  1 
00  26  1*1,45 
READIN2'  IKEC21TEXT2 

26  CALL  GROPLY  ( T EXT  «!IC ,  £400  1 

27  CALL  GOA  IT 
IFIN.EO.ll  GO  TO  34 
If  IN. 60.21  GC  TO  25 


%%?*'■ 


FORTRAN  IV  G  tlEVEL  15 


OUTPUT 


OA'TE  =  75  253 
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p 

1 

0051 

• 

IHN.F0.3I  CC  TO  3s 

i 

« 

. 

•0052 

li  lN.E»,4.GH.N.e0.5.nft.N.eC.6.(<R.NoG0^3()IG0  TO  76 

£ 

(.053 

IF  (n. EC. 311  GO  TO  50 

i 

0054 

GO  TO  27 

' 

i 

* 

0055 

3(3 

IRfcC2=  IftECl-45 

?. 

1 

0050 

GO' TO  25 

r 

0057 

32 

IF(IRECl.t0.46»  GC  TC  17  , 

i 

i 

0050 

I4tC  1’  IREC1-50 

(*. 

0C5G 

GO  TC  15 

i. 

i ; 

r 

.  0060 

75 

CALL  GERASUCOI 

i 

0061 

CALL  GkRLSE 

i 

0062 

RF  (URN 

s* 

i* 

6 

j' 

0063 

34 

Ift fC  1= 1R  EC2-45 

St 

3 

i;U64 

CO  Til  15 

% 

| 

0065 

36 

IF  ( 1  r.£C2«£G»46  )  GU  TO  27 

r* 

s 

0066 

III  IC2=  Ik  EC2-50 

G067 

GO  TO  2.5 

t 

, 

0068 

50 

CALL  GEP.AS(lta) 

0065 

CALL  GRRLSh 

/■ 

5 

l 

t 

0070 

STOP 

a 

i 

0071 

400 

CALL  GFRASt 100 ) 

f  , 

0072 

fcRM  fc  ( 6  >  4  0  2  1 

R 

& 

0073 

402 

FORMAT C 1H1 1  *  ERROR*) 

l 

0074 

GO  TC  60 

\ 

; 

0075 

ENO  ■ 

s-: 


I 


1 

I 


.  \ 
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OOOl 
000  2 
0003 
00U4 


O005\ 

0006^ 

0007 

ccoe 

C009 

0010 

0011 

.0012 

0013 

0014 

0015 

0C16 

0017 

ooie 

0015 

0020 

0C21 

0022 

0023 

0024 

0025 

0026 

00  27 

0028 

V.029 

u03J 

0031 

0032, 

0033; 

0034 


0035 
0036 
UC37 
00  38 
CO  39 
0040 
0041 
0042 
0043 
004  4 
0045 


SUERGUT  INE '  PLOT 
EXTERNAL  PFIAT.EU81NT 
INTEGER  XNVBL. YNV3L 


COMMON  N.IOVLY.ITYPE.TTL  Il5  I.VNAHI10  ) , FNA01  2  l.NLVL 1 2 1  2(  1  2 )  , 

lLEVEL(2,I2>,hfiA,NCA,NRB,NGl>,JAB<b>  ,N1  ,N2  ,  NVBL,  MAC!  ,  MG1 2  ,  MOL  I , 
2NSUGJ.NLUV  i  NWl  * NH2  t  NT  ,  I  SE.U,  Hi  2 ,  NJ  Z,  KOUN T  ,(101  AG,  1  ft  EC  i ,  i  .'t  C2 ,  I  f  CC  3 
3 .NTRANt ) Gl ,TNAH(  >0) ,  LUVI  It!  t  *  HNLIIV I 10  1  ■  ' 

Cl  HENS  ION  XI 100) , VI  100  )  f  NCOUMT  (  100)  » N T t N I  10(.  I , NHUN!) t  1 0  „•  1  . 
1MIXCIK3)  .MAXCHI 3 ) .M1YCHI 3 ) ,MAYCH(3 ) ,  TEXT ( 15 ) , I  SET!  1 3  I , bE TUP!  !.■>). 
COUI  VALENCE  (  I SE  Tt  1 ) ,  SETUP  i  1 )  I 


CNP 


( 


1C 


I 


OOUPLE  PRECISION 
DA  I  A  CSI2E/*e*/ 

REV. INC  LiVil 
1  1MPY=-Ib7772 16 
NR-NLVH  1) 

NCC=NLVL ( 2 1 
MA  SK 1  =  1 1 4c  E5C655 
NSTGP=1 
NC=6C-  . 

XSLM=0.<l 
YSUM---.I.0 
XSUH2"0.0 
YSUM2=0. 0 
KQUNCG 

.CALL  GKIMTICSI2E) 

CALL  GCECC ( ECB IN T ) 

Call  gcpfk imaski ipVint ) 

CALL  GERAS! 1 00 )  | 

CALL  GROfeLYI'  •tl»C400> 

CALL  (!R!)([t  Y  CAT  THIS  STAGE  YOU  MAY  LOOK  AT  PLOTS  OF  YOUR  3A1A  POI*- 
•ITS.'  ,57, UNO) 

CALL  GPOi’LY! 'YOU  HAVE  THE  CHOICE  OF  SEEING  A'  CELL.  A  ROW,  A  COLUMN 
1,  CR  •  .  57 .6400 )' 

CALL  GP.DPl.YI  'ALL 
|I  F6  IN'  ,5rt,C4W.) 

;  CALL  GROPLYI 'THE 
LEVELS' .5.1.  £4C0) 

C  At  L  GROPLYI 'OF  A  FACTOR  TYPE  "l)"\  FOR  THE  LEVEL.',' ,  35 .  C*.VU  I 
CALL  CROP!  Y  ( 'EXAMPLE:  SUPPOSE  FAfclDR  1  IS  DESIGNATED  AS  THf 
1  IN  THE'  , 59 . f. 40c1 1 


\ 

YOUR  DATA.  TO  INDICATE  YOUR  CHOICE  OP  POINTS,  TY 
LEVEES  OF  ROTH  FACTORS.  IF  YOU  WISH  TO  SEl.  All.  t 


CAl  L  G.'IOPEYI  '  ANOVAR 

CALL  GROPLYC  2,2 

U4w>) 

CAE!  GROPLYC  0.4 

1,C40«>  I 

CALL  GROPLYC  3.0 

‘  CALL  ‘GROPLYI  •  •  0,0 

CALL  GRuPI  Y I  '  '  ,  1  ,  E400  I 
185  CO  25  1=1,2 

KK!fLI4,2c>)FNAM  1) 

26  rneMAII'HHICh  LEVFt  00  YCU 
CALL  EETCM  T  EXT  »NCF,  C4liU  ) 

CALL  GROPLYI  IE XT..NCF  , C400  ) 
CALL  GWAIl  1 

IF  1 1  TYPE. ME.  3)  GOi  TO  402 
CALI.  OliRPLYI  TEXT, NCI 


TABLE-'  , ?2 , C40l, ) 

INDICATES  HUTH 


LEVELS  AT  2.  y-,,1 


INDICATES  THE  4  T  H  COLUK  ).  '  , 46 , 


INDICATES 

INDICATES 


THE 

ALL 


0  ROw»  1 

POINTS •  *  ,*2. £•»,** 


j  I 
) 


WISH  TU  SFC  OF  •, A4t«?« ) 


\ 


\ 


i 


\ 


i 


'FORTRAN 


OOA6 

0047 

0048 

0048 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

006C 

CU61 

0062 
0063 
0064 
0065 
0066 
0067 
0068 
0065 
0070 
0071  » 
0072 
0073 
0074 
0075 
0C76 

007.7 

0078 

0C79 

0080 
0081 
0002 
0083 
C084 
0085 
0006 
0087 
0088 
0089 
0C90 
0091 
0052, 
005  21 
0054 
0055 
0096 
0097 


\ 


.  .  T 
■  | 

\ 

\  •  ”, 
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IV  G  LEVEL  1 9 

■  - 

i 

PLOT -  * 

DATE  i  71253 

13/24/17 

caul  xauNKnm.NCi  ‘  ‘  i 

1N01:X*0  i 

call  tNxnexr, index, nc,di,p,640ii 

IF  1 1  .EC,  1 1  NFa.C  1*RHP 
IF<l.EQ.2!?.FAC2*DM» 

25  CONTINUE 

'  X75  IfitNFACl.CT.NR.0R.NFAC2.GT.NCCtG0  TO  180 
CALL  GROPLYI  *  ‘,1.64001 

191  CALL  GROPLYI 'WHICH  VARIABLE  00  YOU  WISH  TO  ASSIGN  TO  THE  X-AXIS?'. 
.151  ,6400)  .  1 

NSTI:P=2 

190  CALI  GUAJT  s 

.  IF  1 1  TYPE. NE.  2JG0-T0  402  1 

CAM.  CRRI’L  Y 1 IE  XT  ,MCI 
CALL  Xlll.  AMR  (TEXT  ,NCI 
VNAMl  =  lEXim 

CALL  GROPLYI 'WHICH  VARIABLE  00  YOU  WISH  Til  ASSIGN  TO  THE  Y-AXIS?*, 
151.C40U) 

NSTFP=3 

195  CALL"  GWAJT 

ir(ITYP{-.NF.3)GC  TO  40?  '  , 

CALL  GRRPLY! TEXT ,NC I  \ 

CALL  X0LANK1 ItXT.NC)  I 

VNAK21»TEX1 1 1 1 
XNVOL=-l  •  \ 

YNVHL=-1  I 

00  50  I«1,NVBL  "  ' 

1  If-  (  VNAf'.l  »t  O.VNAR  (III  XNV6I.=  I  1 
50  1  IP  I y.’iAr?. t-u. VNAP ( I ) )  YSVOl.M 

IFIXNVdL.tvl.-l.OR.YNVnL.  C0.-11G0  TU  450 
CALL  GROPLYI «  *, 1,6400) 

CALL  C.PvOPLVC  ',  1,64001 

CMI.  IinOPI  YCTP,  AT  ANY  TIME,  YOU  WISH  TO  RETURN  TO  YOUR  PP.IVIOUS' 
1,. 5  2, 64001  ; 

•CALL  GROPLYI  MIMVAKlATP  ANALYSIS  OUTPUT,  PRESS  KLY  29,  •  , 41i64-J.il 
CALL  GROPLYI '  ',1,640.1)  ' 

CALL  GROrLYl'TC  RETURN  1C  THE  iltGlNN ING  OF  THIS  St'GHfNT  TO  SEf.',4«J 
1,6400) 

CALL  GROPLYI 'ADDITIONAL  PLOTS,  PRESS  KEY  1.  • ,  30 , 6400  1 
CALL  GrtlHM  VI  •  ',1,64(101 

CALL  GROPLYI 'TC  SEE  YOlJk  CAfA  AGAIN,  PRESS  KEY  5. ',36,64001 
I=T. 

CO  75  HM.l.SLOJ  ' 

READ  (MWl  I  SETUP 

.  IF (NFACI.lO.C, AN0,NFAC2»  EC. 0 1  GO  10  76 

IF  INF AC  1 » lO.O. AND. ISET 1 2 ) , Iw.NF AC2 ICO  TO  76 
IFOIFACI.LO,  ISM  (l).ANO.i;FAC2,fcO.'.lG(l  TO  76 
IFIISfTI  1  ),r-:j.NFACl.ANO.  ISCT(2),C0.NFAC?.IG0,  TO  7 <> 

GO  TC  75  \ 

76  IF  (SETUP!  2+XNVUL  l,C0»-999,,0R,SETUPI  ?.-*YNV8L  1 , CC.-997,  I  GO  TU  75 
l«=I*l 

ACdUNTII  1-1* 

NTFNI I  )»MlD'.  f.COUNTI  1 1 , 10  )  )  \ 

MIHUM’INCOI'M  ( 11-KTtM  111/10  1 

NHUNGI  I  W.URIINI'HUN.IO) 

X 1 1 )  •‘SLTUP42  ‘AhVfil  1 


1 


! 
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009b 
"0059 
0100 
0101 
0102 
0103 
Cl  05 
0105 
010.6 
0107 
0108 
0109 
0110 
bill 
0112 
0113 
0115 
0115 
0116 
0117 
0118 
Cl  15 
Ul20 
0121 
0122 
0123 
0129 
0125 
.0126 
0127 
0128 
0129 
(.130 
0131 
0132 
0133 
C135 
0135 
0136 
0137 
0138 
0135 
0150 
0151 
0152 
0153 
0155 
0155 
015o 
C157 
0198 
0159 
0150 
0151 
0152 
0153 


Y(  l)=SETl!P12*YNVBLl 

xsui=<!:su«*x(  I » 

YSUH=YSIjH*Y(tl  ’  ’ 

XSUM2=XSUM2+X*Ii*Xtll 

YSLH2=YSllM2*Y!l)*Y!t) 

KOOKT-KCUNT+l 
75  CONTINUE 

IF  (KGUfiT.LE. 1 1 GO  TO  525 
XMEAN-’XSUM/F  LCAT  < KCUNT  » 

YM,AN=YSUM/FLQAT IKOUNT) 

'  XSL=  ( 1XSUM2-XSUH9XS1IH/FL0AT1K01IMT)  ) /FLOAT (KOU'1 T-  1 1 J*  *•  5 
YSO= 1 ( YSLM2-YSUH*YSUH/FLCAT! KOUNT I ) /FLOAT (KUUnT- 1) )*«,5 
XMti>=3*XSD 
YMH)-3*YS0 
XMlN=Xt*£AN-XHIO 
XHAX  *X.“t  AN*XP  1C 
YM1N*YF£  AN-YHtC 
YMAX=YMf AN+YHIO 
XDIS*=2.*XM10/56« 

WKITEIfIT.lCl  IXMIN.XMAX 

101  FORMAT!?!  1P£  10. 3,2X11 
OACKSPACG  AT 

RC  All  (NT  1 102)  Ml  XCHtHAXCH 

102  FORMAT  !6A5  I 
CALL  GGkASUCOl 
CALL  GRRLSG 
NSTEP*5 

CALL  1M  TP 

CALL  PFK.P  (HASK1  ,.PF  INT  1 
CALL  FCUPO-OetMl 

CALL  GltAXGSl  C.  ,5092.  ,0.,5052.  ,0,5092, 0,51-921 
CALI  Gl'CHAh!  •  OP*  ,M(XCK,  10, 376.  *500.  .KOOtO  ) 

CALL  GRKHARC  *CP'  ,VNAM(XNVfiU  ,5,2250.  ,5011.  ,K,7D£M) 

CALL  GRCKAR! *8P* ,MAXCK, 1C, 3500. , 5u0. ,KODEftl 
. WRITE  t NT ,101 lYKlN.YMAX 
BACKSPACE  NT 

■  READ (NT,  ll>2  )H  lYCHtMAYCH 
CALL  GRCHAP.l  '8P*  , HlYCH, 10,0. ,600. ,XOOEC) 

CALL  GRCMARl  «8P»  ,VNAN(YHVnU,9,]«(>.,?.J2<).  ,KOllf:H) 

CALL  URCHAK (  *  BP'  ,MAYLH,10,O.  ,5u72.  ,KOI)fci)l 

CALL  GR  A  X  ES  ( XM  IN  »XMAX,YM  IN*  YiiAX  ,600,5012 ,60u  ,50121 

CALL  Gttr,R10!XHIC,YMlO,'A»,XOllUtl 

00  90  1 1 1  , KCUNT 

CALL  UV<n)  I  2  ) 

00  91  KK=>1,2 

91  CALL  PUTUV! X  1 1 1 1  ,Y( 1 1 1 ,KCO£F I 
.  ICT«U'PY*(l6-NT£Ninn 
CALL  GRPLOTl'BP*  ,'8‘ , 2 , 1CT , • 0* ,KODEC> 

CALL  UV99 
90  COM  INOfi 

00  95  I I -l, KCUNT 

IF  (NhUMO I  1 1 1  .EC.O. ANO.NCCUNT ( 11  I.LT.  10 IGO  TO  95 
X!  II  )*XU1|-X0IS 
CALL  0V0012) 

CO  96  KK  =  1  ,2 

96  CALL  PUTUVIXUU  ,Y!  Ul.KOnGFl 
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0154 
0155 
0156 
0159 
0158 
0155 
0160 
0161 
0162 
0163 
016  A 
016! 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 

0176 

0177 

one 

0179 

01  ac 
0181 
018? 
0163 
0134 
0165 

0ie6 

0187 
0188 
0189 
0190 
C 19 1 
0152 
0153 
0194 
0155 
0156 
0197 


IV  G  LEVEl  19  PLOT  ■  OATF  ■=■  71253  13/24/17 

fi'.T*  («.'>>•«(  16-NMUN(in  11) 

CALI.  ,2,ICT,*0»,KontG) 

CALL  U'f55 
95  COM? INUu 
505  FQFMAT  <  111  ,110) 

CALL  GHAIT 
99  CALL  OFF  ILL 
CALL  RlSEP 
IF1N.C0.11C0  TG  10  ■ 

IF1N.CQ.21 IGC  TG  299" 

IIC  TURN 

400  CALL  GERAS! 100) 

GO  TG  10 

4ul  CALL  GROPLYI ‘FORMAT  ERROR.  PLEASE  REENTER  OAT  A. » ,35 ,6409 ) 

GO  TO  (185, 259, 2991, NSTEP 
402  IFinYPE.f.O.  I.AN0.N.E0.291GD  TG  99 
!FUTVPe.fct).l.ANC.N.EQ.301G0  TO  59 
•  IF  1 1  TYPE'.CC*  1.  AnC. N«  €0.3 1 1G0  10  299 

CALL  GR0PLY1  *  YCU  SHOULD  l)£  IN  A  POSITION  KEQU1R1 NG  EOP,  •  ,42,  E'.uii) 

GO  TO  tl:15, 190, 1951, NSTEP 
180  CALL  GROPLYI •  *,1,65091 

CALL  GROPLYI *0N£  OF  YIHJR  LEVCL  N0H8ERS  EXCt-EOS  lHt  NU'<DER  Or  LEVEL 
IS  FUR  THE  FACTOR.* ,70, C400I 

CALL  GROPLYI 'PLEASE  REENTER  YOUR  SET  OF  POINTS. 34 , 6400 1 
GO  TO  185  • 

425  CALL  GROPLYI  •  *•,1,64001 
CALL  GR0PI.Y1*  ',  1,64001 

CALL  GROPLYI  'CCES  IT  HAKE  SEMSf  10  PLOT  ONLY  CM  PljlfT  ?' ,  42,  64u0 1 
CALL  GROPLYI 'PRESS  KEY  1  TC  REENTER  A  NF*  SET  EF  POINT  S. '  ,43 ,64.,.,  1 

426  CALI.  GWAIT 

Il:  IN, EC.  1 )  GO  TC  10 
1 F (M . EO. 3 1 1 GC  TO  299 
GO  TC  426 

450  CALL  GROPLYI  •  ',  1,64001 

•  CALL  GROPLYI 'PLCASr.  REEN1ER  YOUR  NAMES. ' ,26, 640d> 

GO  TO  191 

299  IFIMSTCP.eC. 41G0  TO  300 
CALL  GERAS (I  001 

CALL  GRKlSe 
STOP 

300  CALL  REF  11 L 
CALL  RLSEP 
CALL  UV99 
SI  OP 

ENC 
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0001 

■0002 

C003 


0004 
0005 
0006 
00C7 
000 1 
0005 
CO  1C 

oon 

C012 

0013 

0014 

0015 

0016 
0017 
0016 
oo  is 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
V.U2S 
00  30 
0031 
0032 
0033 
0034 
0035 
0036 
CO  .37 
0038 
00.39 
C040 
0041 

C042 

004  3 
0044 
0045 
C046 
0047 
0048 
0044 


SUBROUTINE  DELETE 
EXTERNAL  PH NT < COBINT 

'  CCi'KCM  N,  1G‘.'1  Y ,  ITYPE*  Yft.  11 5  )  *  VNAMI 10  )  ,  f-NA*3t  2  ),NI.VL  1 2  ) , NEN0I2  *121, 

l  :.K veu  2 ,  i i ,  .iR  a ,  kca ,  two , nc.b,  jabi  n>  tn i , k-2  ,  w bl  * i.faci  , nui 2 ,  mul  v  , 

2NSU9.il  Hi. UV  .  I .  M<2  , lii  ,  1  SEC . N  U , NJ  2 1 COUNTED  I LC ,  IRECI,  IP.EC2,  Ifc.i.C  3 
3  ,NTRAN I  1C)  1 1  NAH(  10) ,LUV(  10) ,  UNLUVl  101 
CATA  CSIZE/'C/ 

DATA  BLANK/*  */ 

MULT  «<! 

CALL  GRl  Nil ! < SI 2EI 
CALL  Cr.F.f.CI».(.BlNTl 
MASK*  :  M061 2735 
CALL  DCPrK  (flASK*  PFINT1 
21»  CALL  GERAS!  UO) 

CALL  GSOPLY  1  *  'tit  £400  ) 

CALL  GR0PLY1 *  * , 1.C4C0) 

CALL  GUOPLYI 'YCUR  RF.SPGNSE  VARIABLE  NAMES  MILL  APPEAR  BELOW  ONE  AT 
1  A  TIME. ». 61 ,C4U0) 

CALL  GROPl.YI 'PRESS  KEY  1  IF  YOU  WISH  TO  INCLUDE  THE  VARIABLE  OR  Kii 
1Y  2  IF' ,59, £400) 

CALL  GROPLYl 'YCU  WISH  TO  CELETE  THE  VAR  I  ABLE. • ,32, £400  ) 

CALL  GROPLYl*  •, 1,64001 
1K*0 

25  1X*IK*1 
TEST=VNAIIMK| 

CALL  GUDI'LYl TEST ,4, £400) 

26  CALL  GUAIT 

IF  IN. EG. 30  ICC  TO  203 
lFCN.fc0.31ICC  TO  210 

IFCN.EC.IIGC  TC  29  ' 

IF (M.EC.2) GO  TC  35 
CO  TC  26 

29  IUVC I K I  *  I K  ■ 

RNLUVI IK) » IK 

• TN AMI  I K )  « VKAFl  IK  ) 

IFIIK.LT. HVU116C  TO  2.5 
IFI  IK.FO.HVHUGO  TO  30 
35  CALL  GBKSPI1) 

LUVCIM*" 

PNt.UVI  1KI«0 
IN  AMI  IK)  'BLANK 
1FUK.E0.NV0UC0  TO  30 
IFI  1 K. I T.fJViU  ICC  TC  25 

30  CALL  C.UOPI  V(  •  * ,  1.C400I 
CALL  O.ftriPlYI'  ' ,  1,  £400  I 

CALL  GRDPI  Yl  * ThE  ABOVE  VARIABLES  ARE  YI'L  ONES  YOU  DECIDED  TO  lllf.t.U 
1  Df:.'  ,56,  (  4'.<0) 

CALL  CHOPLVIMF  YCU  AGREE,  PRESS  KEY  15  IF  YCU  WOULD  LIKE  TO  TRY 
1  AGAIN,  ',59,00.0) 

CALL  GROPLYC 'PRESS  KEY  2. ',12, £4001 
32  CALL  G„A1T 

iRN.t-o.nci:  io  so 

IF  (N.LC.fc )  CO  TC  20 
IF  IN.I-.J.  j  JlGC  1(1  2D 3 
IFIN.EC.3l 1GC  TO  210 
GO  1C  32 
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0050  50  IFILUV<NVOL».EQ.O>TNAK<NVBO«VNAII{WBL> 

•0051  Kveu»Nm-i 


0052  ’ 

CO  150  !C=>ltNV8Ll 

0053 

IF  I T  KAMI IQI.NE.OUNKJGO 

0054 

153 

TO  152  J A*  ZQi NV8L 1 

0055 

152 

TNAI4(.|A)»TNAP<JA*1> 

0056 

IF  ITNAHC  1Q)„EQ. BLANK  jgo 

0057 

150 

continue 

0058 

203 

CALL  GEUASl 160 1 

0055 

CALI  GKKLSE 

0C60 

RETURN 

0061 

400 

GO  TO  203 

0062 

210 

CALL  GERAS'dOOI 

C063 

CALL  GRRl'SE 

0064 

STOP 

0065 

ENC 
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LOCI 

COO/ 


0003 
COO  4 


0005 

000< 

OOC7 

oooe 

0009 
boia 
coil 
0012 
0013 
CO  14 
0015 
CO  1 6 
0017 
OOlfl 
CO  1 5 
0020 
0021 
0022 
102  3 
0024 
0025 
0026 
0027 
0028 
002  5 
0030 
C03 1 
0032 
0033 
0034 
00  35 
0036 

0037 

003C 

L03S 

0040 

0041 

0042 

0C43 

0044 

0C45 

0046 

0047 

C04e 


SUBROUTINE  HA1AH 

CCNMCN  A.ICVt  r.lIYPE.TU  1 1 6  1 ,  VN  AHUu  1 , 1 '(AMI  7  ) ,  AlVl  I  ?  I  ,N‘.  No!  2 , 1 2 ) , 
llCVtL(2,12),A-<A,  (vCA  ,NKh,  Af,  I,  J.'.t.l  ti)  ,N)  ,A/ .  A  VII  i  Af  ALT  ,  NCI  *  ,  MIJL  T  * 
?A5U'I  J.NLUV  ,AH1,AW2,AT,  I  St  C.Mi.NJC .  M.UAf  ,Al‘ 1  At’, ,  I K  t  C 1 ,  I  KtC/»  I  RfcC  3 
3.MRANI  HI  j I AAP I  1 0)  »  LUV(  1%  I.CMUVI  1  •> 

CO  URL  t  PRECISION  OSOV, I/SOU, OSS'.P.J 

C 1  Hr  A  S I C  A  SUE  I  12  1 12)  i«l  (  12  ) ,  CM  1 .. ) ,  j  (  1  (  I ,  UK  1 i  ,AA1  (  1 2, 1 2 1 ,4 1 1 II  2 ) 
l,P.E2U2),Ct)  1 1/1  ,C'=2I12)  ,0A1 1 1/1  ,0AM  l/l.'Kl  (  121,082  (121 .  Mini  ( 17,1 
221  ,$UR2I 12,12!,M55l.t.l55),<.RMM  111,1  1 1 '>6 )  ,ha(  5S1  ,H»<  SSI ,  HAD  t '>6) , 
3HS 61551  ,«>■  155)  ,CS$CPIlo,K  ),CU«CU>>) 

M  >11 1 2 
NJ«NJC 

4J>)0  dACASPACE  AH 2 
Rt/CIAW2)SA1 
Pc  HI  AO  Ah  2 
PE/0(NH?l  CSSCP 
cn  ioi  ix>i,i 

lul  REAiMNH/l  <11!, SUB, SUO, SUB,  SUU.SUf  ,Sllil,SUSl , SUl‘, SUB 
RE  70 1Nh2  I  r.UHC,l.UM.C 
KG  >  NVBL 
CO  3011  NV 1 > 1 , KC 
CO  259  1  T X—  1  ,AV  1 

255  PE/O  10H21  N 1  ,A  J  ,K,SUJ,Rt,CI  , 0,  Co 
BACKSPACE  NH2 
CO  312  J(.  *  1,12 
Pf.ll  JG)=PE(JC> 

CCIIJG)  =  CCIJC) 

CA1IJGI  •  LUG) 

CB1IJGI  <  CUIJG) 

CO  3u2  JP  =  1 , 12  . 

302  SUi'l  I  JG,  Jill  *  SUM  JG,  JH) 

CO  301  NV2  *  NV1 *KG 

PE/O  (A‘H2)  N  I  ,AJ,K,SUB,RE,CE  ,vi,CB 
CU  303  JU  *  1,12 
RE2IJGI  «  PE  (JO) 

CE2I  JU)  »  Cl  I JG  1 
C421JGI  =  Cl JG  1 
Q02IJ.JI  »  CO  t  JG  1 
’  CO  3u3  JH  *  1,  12 

303  ■SUH/IJG.JH)  *  SUeiJG.Jt-l 
C  c  OSSCI’I AV  1  ,AV 2) 

CAU  Gl  NhEIOfAAl  ,SUill,SUP2,KEl,K(<  ,GU,CE<  ,0M  ,042,031 ,  Ji»2,NVI , 
1AV.V.I  ,NJ,t  ,HA,H.»,1<AU,I-SE,AI!PS3,MPC  1 
301  COAT  HUE 
PC  V I  AC  AH2 

RIAO  I‘1R2  1  Oll'C , fiUHC .OUMC  ,  CUM. , AU.RL ,  !>  .I.RC , uUHi. ,  0U“t  ,UUMC  ,i;wMt  ,„UMC , 
ICUHC  , CUKC  ,  CUPC  »CUMC , OURC  ,l’.lHCtlluMC,JUML  ,.,UPC 
CU  UH  l/«l  ,’ 

too  RIA0INW2)  SI  f  ,518,  SUP,  SJI>,  SU-',SUC,SU..,  Sup.  ,SU!,  Stilt 
Pt/JClHl)  CUPC.UUPC 
3011  COAIIAU- 
AR  A  <=  NV<*c 
AC  A  ■  AVRl 
ARH  *  AVill 
AC  f»  AVl'l 

CAIL  IASLCIC.fi, CRAP) 
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FORTRAN  IV  C  LEVEL  19 


HAINB  ■ 


DATE  «  7J253 


0099 

0050 

0051 

ALOE  -  CRAPI.hRAl 

NSIEP-1 

IR£C*IRECl-i  ~  •" 

0052 

IF IHCuIIREC.951  .EQ.  01  GO  TO  1001 

0053 

0059 

0055 

0056 

501 

WRITE  (M«  IREC1.2005) (TTl  ( 1 J 1 , 1  J-l ,  15) 
WRITE  t M2 1 IREC2  «2006) 

NSTEP-2 

IREC-IRECl-l 

0057 

IF (HCDI IRECt 951  .EO.  01  GG  TO  1001 

0058 

502 

WRiTEINl* IREC1 »2O03) ‘ 

0055 

0060 

0061 

WR1 TEIN2* 1 REC2  *20031 

N$T£P«3 

IREC=IREC1-1 

0062 

1 F (HCDI 1REC *95  1  .EO.  0)  GC  T0-1001 

0063 

503 

NRITElMl* 1REC1, 20071 

0069 

0065 

0066 

0067 

HRITEIN2* IREC2,20081FNANINI1»FNAM(NJ1 
CALL  MRIRIE.hRA.lt 

NST£P*9 

IREC= I REC1-1 

0068 

IF  (HOOCIREC.951  .EO.  01  GO  TO  1001 

0065 

CU70 

0071 

0072 

509 

WRITE  (M*  IREC1 .20031 

HRITEIN2* 1REC2, 20031 

NSTEP*5 

,IREC*IS£C1-1 

0073 

IF (HOC! IREC . 95 1  .EO.  01  GO  TO  1061 

0079 

0075 

0076 

505 

WK 1TEIN1 ‘ I  PE  Cl .2009 1 

WRITE ( N2 1 IREC 2 .20031 

GALL  URIRICRAP.NRA.O) 

0077 

0078 

0075 

CO  312  1*1 *NRA 

II  *  LTERHII.11 

IF (E 1 1 1 1 1  321.321.325 

CO  00 

325 

CRAPIll  =  SORTIE  1  It  1 1 

0081 

ooe2 

0063 

0089 

312 

COST INUE 

00  313  I  >  1 »hRA 
.00  313  J-I.NRA 

IJ  *  LTEPH1I ,J1 

0085 

uoe6 

OOf  7 

313 

RRIIJl  *  E( I Jl/ICRAPI l )*CRAPIJ) 1 
NSTEP-6 

IREC*  IREC1-1 

0083 

IF (HUOI IREC. 95 1  .EO.  0)  GO  TQ  1001 

0085 

0090 

0091 

0052 

506 

WRITE  INI*  IREClt 20031 

WRITEIN2* IREC2.2003) 

NSTEP«7 

tfirC=l«ECl-l 

0093 

IF (HCDI 1  PEC , 95)  .EO.  01  GO  TO  1001 

0059 

0095 

0056 

507 

MR  IT  E  INI  •  IREC1. 20101 

WRITEIN2MREC2, 20031 

CALL  MRIRIRR.NPA.lt 

0057 

C058 

0099 

321 

CONTINUE 

NSTEPcO 

IR£C»! REC1-1 

0100 

IF (HCO 1 1  RE  C 1 95 i  .EC.  01  GC  TO  1001 

0101 

0102 

0103 

C106 

508 

HR1TF.IN1MRCCI. 20031 

WRITEIN2' IREC2. 20031 
h'S!EP  =  5 

IRECnIRECl-1 

13/29/17 


FORTRAN  IV  G  LEVEL 


IS 


HAINB 


DATE  *=  71253 


l 3/24/1 7 


0105 

0106 

01C7 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0115 

0120 

0121 

0122 

0123 

0124 

0125 

0127 


IF!MC0UREC,451  .fO.  01  GO  TO  1001 
509  LRITEINi* 1RLC1«2011 IFAATKttlt 
1/R I T El N2 *  IRE C2 , 20 12 ) FNAH IN J 1 
REWING  NW2 

WRITE! NW2)  HA8,KA,HB, E,CRAF,Et»HSB, NOPE ,NOFt .ALOE, NI ,NJ,NOFSB 

REWIND  NU2 

RETURN 

1001  WR I TE !N1 • IREC1 «2001 SKOUNT 
WR  ITE (N2* I ft EC2* 2002 IK GUN T 
KGUNTrKOUNT* 1 

-  GO  TO!  501 , 502 ,503, 504,505, 506,507,508, 509 1 t NSTEP 

2001  rORMAT!55X,*  PAGE •»I4»*L,i>lt!!/> 

2002  FOKNATISiX,* PAGE * ,  14, *R*  1 10*/ i 

2003  FORMAT (80X1 

20C5  F0PMAT11 5A4 ,  •  MULT IVARI A' ,8X » 

2006  FORMAT ( *  TE  ANALYSIS' ,69X1 

2007  FORMAT  ( <«0  X  » *  MATR  IX  E  AFTER  ELIMINATION  OF  FA»,8X1 

2008  F0f<MAT!»CTURS(‘,A4,'l  AND  <• ,A4,* }• ,58XJ 

2009  FORMAT  (40X,1  STEPWISE  LOG  CETERMINAN1 $ • , 1SX) 

2010  F0RMATI4UX, 'CORRELATIONS  BASFO  ON  EN17X) 

2011  FORMAT (40X, • SUBTOTALS  ! ALL  EFFECTS!  ',ft4,‘  AND',8X) 

2012  FORMAT ( A4 , 76X1 
ENO 


I 
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0001 


0002 

0003 


0004 


0005 

0UC6 

0007 

coca 

coo? 

0010 

con 

OU  12 
0013 
0014 
CO  1 5 
C016 
0017 
0016 
con 
0020 
0021 
0022 
0023 
CC24 
C025 
0024 
00  27 
0026 
002? 
0030. 
0031 
0032 
00  3  3 
0034 
0035 
0036 
0037 
0038 
0039 
CC4C 
0041 
0042 
0043 
0044 
0045 
0046 


SUBROUTINE  GESOiflD.NMl  tSUDl  »SUB2*nEi »RE2«CE1  ,Cl:2,0Al  ,QA2 ,  QB1  ,0t>2  , 
lt(Vl»NV2,NifNJ,  £,HA,Hft»HAB,HS0,N0FS8,NDFe) 

C  ’ 

C  GENERATES  TIIF.  ELEMENT 5  OF  SUM  OF  SQUARES  AMO  PRODUCTS 
C  MATRICES  FOR  ERRO*  (&)  AND  EFFECTS  OR  HYPOTHESES  IH» 

C 

C0U8I.E  PRECISION  SSUB,SPR,S,T,DN,ET,D 

CUMHCN  0,  Il’.VLV,  1  TYPE*  TTL 115),  VN  AMI 10 ) «FNAN( 2) ;NLVL( 2 1 *N£N91 2  < 1 2 )  . 
1  LEVEL  12, 121  ,M1A,KCA,N«U,NCE,  J4B101  *N1  ,N2  ,NVHL,r,FACT,  NG12 » MUL  1 , 
2HSU8J  >ilLUV  «KM1,  KW2  itIT ,  I  SEC, HI  2,N32  tKOUNT  ,tj|)  1  AG,  IREC1 , 1 REC2,  I RLC3 
'•  3  ,N(RAN(  10  1  ,T  A  A!<t  10)  i  LUVl  10  I ,  HNLIIVI  10) 

Cl  HENS  (ON  SUU1  12,12),SUB2C12,12),REH1)  ,RC2 1 1 )  ,CE1  (1 )  ,CE21 1 1 1 

1  O/.iil)  .0*211  ),Q8m),CD2t  II, cl  11  ,HA(1)  ,HB1  1)  ,HAB(l),HSBt  1  I  , 

2  R112) ,RB(12I ,NN1(12,12),N10CTI12» 

NO  «  0 

S5C8  *  0.00 
SURA«0« 

SUKB«<>. 

NR  =  NLVl  INI  ) 

NC  ■=  NLVL1NJI 

Norse  *  -1 

£PR  -  0.00 
DO  1  I  =  1«M) 

OQ  1  J  >  1 ,AC 
S  *•  0.00 
T  «  0.00  ■ 

S  »  SU81I1.J) 

T  »  SU02 1  1 ,  J  I 
CN  =  0.00 
DN'-NNl ( I  ,J) 

IFlNNll I , J) ) 1,1,2 
2  SUMA  *  SUIU  ASUaill.J) 

SUHR  *  f.ynn  4  SUB21  f  »•)) 

K0-NG+KN11 1,J) 

.SPR>--SPrttS*I/r.N 
NOFSB  =.  M)FSB  ♦  1 
1  CONTINUE 

FT  *  0.00 
IT"0-SPH 
5  «  C.OC 
CN  *  O.CO 
S  ■  SUM A 
T  «  0.00 
T  =  SUHfi 
OH  «  NG 

SSllt**SPR-$»T/!)N 
00  6  1  «  1 ,Nfi 
NICOTII)  i  0 
fill)  c  0. 

ROM)  «  0. 

00  6  J  »  I, NC 
MOOT  1  I ) *N l OCT  1 1 ) ♦HNl  11,31 
fill)  *  nil)  «  SUBKlrJI 
6  UR  1 1  I  «  P,(!  1 1  I  ♦  SUD21 1, J) 

SRU  *  C. 

00  7  I  *  1, NR 
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0097 

am  *  Ninorrn 

0043 

7 

SRU  »  SRU  ♦  P(l)«a»tn/AN 

0049 

SRA  «  0* 

0050 

CO  8  i  -  1,NR 

0051 

8 

SRA  *  SRA  ♦  fi£l(  11*0321!) 

0052 

SCA  *  0. 

0053 

CO  9  J  »  i,NC 

0054 

9 

SCA  =>  SCA  *  CE1CJ)  »  CB2IJ1 

0055 

SINT  *  SPR  -  SPU  -  SCA 

0056 

IJ  «  ITERMIMVI  »NV2)  ■ 

0057 

'  E(  IJ)  =  ET 

0058 

HA ( I J)  =  SRA 

C059 

, 

t-0(IJI  «  SCA 

0060 

HAP.IJJ)  «  SIM 

0061 

HSCl  IJ)  »  SSl.S 

0062 

HOPE  =  NG  -  f.OfSO  -  l 

0063 

RETURN 

0064 

ENC 

129 


FORTRAN 

IV  C  LEVEL 

19  (MINE  '  DATE  -  71253  13/24/17 

0001 

SIMRO'.IT HE  MAIflE 

0002 

10MMC.V  N,  KjVLY  •  t  TYPE  t  TTL115)  ♦  VN'AKI  101 ,  FNAMI2  },NLVL (2  )»NEND(2»12>, 

Hf:Vei(2,12».WS*.6CA,NRU,Kf.e'9JA0(81  ,Nl ,N2«NVBL ,KF ACT, NG12 , MULT, 

2NSIJ0.I,NLUV  ,I.K1,NH2,  NT  ,1 SEO,  NU.NJZ,  KOUNT  ,.NOIAG,  IRSC 1,  UEC2,  IREC3 
3,MTftANI  10)  *Tf!A.'(l  lOl.LUVI  lOS.HNI.UVI  10) 

0003 

01  PENSION  8AEt551»HAt551,l;8<551,CRA(Mill,fcn551,EC  S5I,HS015S1 

0004 

READ  INW2 )  HA8,HA,H8,E,CRAPf EI,HSU»NDFE»NnFI tAlOE.Nl ,?IJ,NDFSB 

00C5 

RENIKO  NH2 

0006 

CALL  TC-KAT  IHSB, E r CRAP*  El  » KCFE,  NOFSB,  ALOE  ,N  1  »NJ  ) 

C007 

. 

KOFI  -  M0FS8  -  NLVLIN'n  -  NLVLINJl  +  2 

OOC6 

1HNCFI)  001,501,502 

0009 

502 

K'STEP=1 

0010 

IRLCURF.Cl-l 

ion 

*IF  IMCO 1 1  IlCC  ,45  )  .EQ.  0)  GO  TO  1001 

0012 

50 

kit  ITU  h'l*  I/teCl  ,2003 1 

(JO  13 

HRITEIN2* IREC2, 20031 

0014 

KSTEPr2  ■ 

0015 

IREC3!Rf:Cl-l 

OOld 

IF (KflO  U  RE C ,45 )  .FO.  01  GO  TO  1001 

0017 

51 

MK  ITE I  N1  *  1P.ECI  ,2  5)FNAH<M  11  ,FNAHt  NJ 1 

0016 

# 

NRITHN2HREC2 ,2003  1 

0019 

CALI  TEHATOlAB,  E,  CRAP,  E!  ,KOFE,NOFl,  ALOE,  NI.NJ) 

0020 

501 

KOFI  “  NLVlINI )  -  1 

0021 

IF  INOF  1 1  503,503,504 

0022 

504 

HSlC-P-3 

0023 

IRECURFCl-l 

0024 

IF  (MCC  1 1  RI-.C  ,45 1  „C0.  0)  GC  TO  1001 

0025 

52 

WRITEINIMRECI,  20031 

0026 

WR ITEI N2* 1REC2, 20031 

0027 

NSlfc‘P=4 

0020 

1RFCUREC1-1 

0025 

IF  (MuCi  ;;:IC,45)  oEC.  0)  GO  TO  1001 

0030 

53 

UR1TL (Nt •  IREC1  *27lf  HANINl  I 

0031 

NR  I TE (N2* 1  fti:C2 , 2003 1 

0032 

•AI.L  TEHAT IMA, E, CRAP, Cl,  NCFE.NOFl, ALOE, Nt.NJl 

0033 

503 

K  >Ft  =  KLVtIKJl  -  1 

C034 

IF. NO'- II  5C5  ,5C5 ,506 

0035 

506 

NSTEP=5 

0036 

IREC*I FEC1-1 

0037 

IFIHGOUP.ee, 451  ,EQ.  01  GO  TO  1001 

0038 

54 

kftlTEINPtKECl  ,20031 

0035 

KRITC-(N2MREC2, 20031 

0040 

NS  I  EP*6 

C041 

irec- incci-i 

0042 

IF  (MODI  l!UC,45 1  .EQ.  0)  GO  TO  1001 

0043 

55 

NRITE(N1MREC1,271FNAH(NJ> 

0044 

VRITEIN2*  IREC2, 20031 

004  5 

CALL  TDHAT IHC,E, CRAP, El, NOTE, NOFI, ALOE, III ,NJ» 

0C46 

505 

isro  *  17 

0047 

Nil  ITEI NW2I  N'UfiJ 

0048 

PESIKC  KH2 

0045 

NS1CP=7 

005C 

605 

ir.ee  *!  RCC1-I 

0051 

IF  (HOI*.  URL  C  ,45  )  .EC.  01  GOTO  1001 

0052 

klUl'E  INI'  IRC  Cl,  20031 

0053 

kR IT  t( N? 1 1 UCC2 , 2C03 1 
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0054 

GO  70  605 

0055 

56 

KKCUh«K01INT-2 

0056 

* 

MUTEiUl*  !REC1»?004IKMOUN’ 

C057 

WRITEO.l*  II1EC1 ,20031 

cose 

WRITEIN1* IRECl ,20051 

0059 

hR!TE(NlMRt.Cl  ,20061 

C36C 

WRITE(M*IREC1, 20071 

0061 

CO  601  l J=l*  38 

0062 

601 

WRITEINl'IRECl, 20031. 

0063 

CO  6C2  IJ*1«43 

0064 

602 

WR 1  T  HN2 ' 1REC2, 2003) 

0065 

ITEMP=HVai 

l  066 

• 

NVl!L=NLUV 

0067 

NLUV= l TEMP 

0066 

RETURN 

006  S 

1001 

V.R1TF, (M  •  IR£C1,2G01 JKOUNT 

0070 

WRITE (N2’  IRCC2,'2002)K0UNT 

0071 

KOONT^KOUNT+l 

0072 

GO  TO  (50*51, 52*53, 54, 55, 56 ),NSTEP 

1  C73 

2001 

FORMAT  (5SX  ,«  FACE*  ,  t4»»L' *16X/> 

>  074 

2002 

rORMAT(t.i'X,*fAGQ*,l4,'R*  ,16X/1 

(■075 

2003 

FORMAT (box  J 

0076 

25 

F0RHATI40X,* INTERACTION  •  »  A4»  *  *  *,A4,17X) 

0077 

27 

FORMAT (49X, A4, *  EFFECTS* ,19X1 

0078 

2004 

FORMAT  I  •  PAGE  13  , '  WAS  THE  LAST  PAGE  Or  YOUR  MULT  I VA R !•< 
l'.25X) 

0079 

2005 

FORMAT!  '  YGU  HON  HAVE  THE  FOLLOWING  OPTIONS!  1 ,  A5X) 

0080 

.  2006 

FORMAT  1 '  PRESS  KEY  4  TC  PREFORM  ANOTHER  MULT  IVAk  IATE 

125X1 

0081 

2007 

FORMAT  ( *  KEY  31  TC  TERMINATE*  *53X> 

0082 

ENO 
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0001 

SUBROUTINE  YEI4ZT  (H,E  ,Cf;AP»EI  »NDF£,fiOFII,  ALOE,  NI  ,NJ  ) 

c 

c 

CONTROlS  THE  f'VLT  IVARlATfe*  ANALYSIS  I ULEL  IHOOC-RAT  10 , 

c 

r 

0HI3:l-t.‘lTEftSEC7ICN,  AND  DISCRIMINANT  ANALYSIS! 

CU02 

COHIION  N,IGVlY,»VYPE.T7tU5l,VNAMI10),fNAK(2),«LVL(2),NEN0I2,12), 
ILEVEL(2)12>»  NRA,  NCA  ,NRB,KC8,  JAfil  8)  ,N1  ,N2  ,NVRL  ,.\FACT  ,  NG12  ,  KULT  , 
ZNS’JBJ,  MLUV  •M:i.t;>l2,NT.ISl:Q»NIZ,NJ2,K01:!!Tfl(IMAG.IRECl.  IREC2.IACC3 
3»NTRAN(  10)  »TNAII(  10)  •»  LUVi  10) « XNLUVI  li>  1 

0003 

DIMENSION  111  i),EIl),Cr«APin,EI(U,T(  100)  ,UI  10, 10)  ,  SYM(  55)  ,PE  (3i'l  , 
1HX  155  V  iOIS 1  SO  )  »RC  13(30) 

0004 

NR  A  =  .VOL 

0005 

hCh  =  flOFH 

0006 

NR  8  =  NRA 

0007 

NCH  =  NRA 

OOOB 

NRO  «  NLVL (N  l ) 

0005 

NO GL  =  MLVLl  ft J ) 

0010 

IF  0=1 

0011 

0  *  FNAM1NJ1 

0012 

1MX  =  (N«A*lNRA4l))/2 

0013 

CO  44  1  =  It IMX 

0014 

l  *  I 

0015 

IF  (H<1))43,44,43 

1)016 

44 

CONTINUE 

0017, 

GO  TO  45 

0016 

43 

CALL  TRIlHt T.CRAPI 

00  lv' 

IF  INCn-1140, 40,41 

0020 

41 

NOT  *  NCB 

0021 

NCB  »  NRA 

0022 

oo  l  t=i,  iiix 

0023 

1 

M  ii  =  hii  mi  i) 

0024 

CALL  I  NSl.i)  (H  ,HX,  CRAP ) 

0025 

ALDH  =  CRAP  <  NRA ) 

0026 

AH  «  .NOFE 

0027 

•AH  =  AH  +  0.5*FL0AT  (NBFF-NVBL-l ) 

0028 

CF  »  NOFIl*NRA 

0025 

XST  =  - 1  ALCE-ALOH)*AH 

0030 

IFG=1 

0031 

NSTEP*  1 

0032 

I  REC»I  RECJ-l 

0033 

IF (HOC  1 1 RFC, 45)  .EO.  01  CO  TO  1001 

0034 

3001 

httllEINl'  IFF. Cl  ,20031 

0035 

WR ITf 1 N2* I  NEC 2, 2003) 

0036 

NSTEP=2 

0037 

IREC  =  I  P.ECl-1 

0038 

IF IHOOI Iftf C,45l  .EQ.  0)  CO  TO  1001 

0039 

3002 

HRITEINl' IRECl,201O)XST 

C040 

WRITE-IN?'  IRKC2  ,2011  )0F 

0041 

PR  «  CH I X I XST, CF  ) 

0042 

FCX  *  (FLOAT  (N0FH))6*2  ♦  FLOAT  INRA**2)  -  5. 

0043 

CEL  =  0F6FCX 

0044 

001  *  OLL/140. *AK**2) 

0045 

OG  =>  OF  ♦  4. 

0046 

P5  *  CIMXI  XST, or,) 

0047 

PZ  =  PR  ♦  ( PS-FII )  fOEL 

0048 

IFIPZ  -  1.0)  310,310,311 

.1. 
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0099 

0050 

0051 

0052 

0053 

0059 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0069 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0079 

0075 

0076 

0077 

0070 

0079 

ooao 

0081 

0082 

0003 

0069 

0085 

0086 

0007 

0088 

0089 

0080 

0091 

0092 

0083 

0099 

0095 

0096 

CC97 

0390 

0099 

010C 

0101 

0102 

0103 

0109 


310 

311 
313 

312 


3003 

3009 

\ 

! 

3005 

212 


315 

161 


162 


3006 


3007 

171 

213 


UU  101  1 =  J 

II  ■  LTERI 
IF (HIT  i )  1 

oist  n '=  ; 


i 


PR  -  PI 

IFIPR.  -  l.Ol  312,313,313 

PR  =  1.0  . •  " 

PR  «  l.-PR  ' 

KSTEP*3  I 

1REC-IREC1-1 

IF (MOO ( IREC« 95 )  .EO.  01  GO  10  1001 

NRJTEIN1*IREC1,2012)PR 

URITfc<N2*IREC2, 20031 

NSTEP=9 

IR£C=IREC1-1 

IF  (HOO < 1REC, 45 )  .EQ.  0)  GO  TO  1001 
WRITE  INI*  PKGCl .2003 l 
WRITEIN2' IREC2, 20031 
NSTEP=5  1 

!RFC=! RECJ “1 

IF  (HOC!  IREC.451  .SO.  01  GO  TO  1001 
WRITDtNl*  IREC1.20131 
HR1TE<H2>  IREC2, 20031 
CALL  WHIR ( N, HRA. 1 1 
00  161  1=1 «HVBL  ' 

ERIK  1  i  I  ) 

171,171.315 
DISH)  '»  SCHTIIIUUI 
CONTINUE 
00  162  l=l,KVOL 
00  162  J»l  .IH'OL 
IJ  *  LfFRM(t.J) 

SYICIJ)  =  W(IJ»/(OISI  I»*C1S(J»> 

NSTEP=>6 

IR£C»IRECl-l 

IF  (MOO  *  I  RF.C.45 1  .GO.  01  GG  TO  1001 
NRIIEINV*  1RSC1, 20031 
WRITE  ( N2?  l'4EC2»?.CC31 
.  NSTEP-7 
1REC-IRECI-1 

.  I F  1 1(00 1 IREC ,  95 1  .EQ.  0)  GC  TO  100X 
WRITE  INI'  !fi>.:r.W2019) 

WRITEIM' IREC2. 20031 
CALL  VRIRI SYH.HVOL.il 
CO NT l HUE  1 

GO  TO  1213. 951, IFG  1 
DO  3  J  >  I.NCT 

CO  3  I  *  l.HRA 

tit  l.Jl  *  0. 

00  .3  K  «.  l.NRA 
IK  »  LTEP-HI I  ,Kl 
'KJ  *  (J-ll*71RA  ♦  K 
UU.Jl  =  UII.J1  ♦  HXtlKMTIKJ) 

00  4  J  »  I.NCT 

00  4  I  -  l.J  i 

IJ  »  LTE8MU.J1  \ 

SYHUJl  -  0. 

CO  4  K-l.NRA 

KI  «=  1 1-1 1  <SNOA  ♦  K 

SYH(IJ)  »  SYMIJI  ♦  TIKIMUlK.Jl 


l 


I 


\ 

\ 
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Olil 

IJ  ■>  LTEPNM.J) 

0102 

18 

RDISU)  -  t(  U)<*D1S(  Jl+ROISU  1 

0163 

CON  =  0. 

0164 

CO  19  J  =  1  ,  NRA 

0165 

19 

CON  «  CON  4  RDI5 I J1*0 1$(  J 1 

0166  ‘ 

CO  20  I  *  1  ,  MIA 

0167 

H  *  LTERMI  Id) 

0168 

20 

RD  IS ( I)  =  ROlSm/SQRI 

<CON*EUI)> 

0169 

NSTEP*13 

0170 

• 

IREOIREC1-1 

0171 

IE  (M0CUREC.451  .'EQ. 

0) 

GO  TO 

1001 

0172 

3013 

tiKITBIMUKECl,  20031 

0173 

HR 1TE 1N2  *  IRCC2*  2003) 

0174 

NSirr*i4 

0175 

IR£C=1REC1-1 

C 176 

IF (HOC ( IriCC,4S 1  .EQ. 

01 

OC  TO 

1001 

0177 

3014 

HR ITfc I N 1 1  IREC  l  ,2019 1 

0178 

HR 1TE IN2 ' 1REC2, 2003) 

0175 

CALL  HRIRIRC1S,NRA,0) 

0180 

GO  TO  99 

N 

0181 

45 

NSUP=15 

0182 

IREC^lHECl-l 

0183 

IF  [M0UUREC.45)  ,CQ. 

0) 

GO  TO 

1001 

0184 

3015 

HR  I TE  (N1  ‘  IREC1  ,2003) 

0185 

WRITE(N2'1RGC2,2003) 

0ie6 

NST£P=16 

0167 

1REOIRFC1-1 

0188 

IF IMOC ( I REC ,45 1  .EO. 

0) 

GO  TO 

1001 

C185 

3016 

HRITFIM*  IKEC1, 20201 

0190 

HR  IT  EIN2 ' I RE C2: 2003 1 

0151 

GO  TO  (99.210I.IFG 

‘ 

0192 

GO  TO  59 

0193 

40 

CO  50  I  =  l.NRA 

0154 

DISI  11=0. 

0195 

DO  50  J  3  l.NRA 

0196 

IJ  -=  ITERHU.J) 

0197 

50 

DISI  l)  =  Eli  I  J)*T  I J)  4DIS(  l ) 

0198 

F  *  0. 

* 

0199 

CO  51  I  1 ,  NR  A 

0200 

51 

F  =  HOISI  I)*TCIJ 

0201 

OFR  *  UR A 

0202 

OF  N  =  MJFE-NRA41 

0203 

F  »  F*CFN/CFM 

0204 

I  FG=2 

0205 

NS  T£  P=  17 

0206 

IRFf.«IRCCl-l 

0207 

IF  IIHJK 1 1  RCC, 45)  .EQ. 

0) 

GC  TO 

1001 

0208 

1017 

WRIT  C  IN  1 1  |I!£G  1 .2003) 

02.09 

ttftl  T  F.  (K2 '  IREC2.2003 1 

0210 

NS  !£('=<  18 

02U 

IRIC.-IRCCl-l 

0212 

If  (.KICI IRCC. 451  iEQ. 

0) 

GO  TO 

1001 

0213 

3018 

HR  1 T  f  1 N 1  •  If!  EC.  1,20211 

F.OFK.DFN 

0214 

HIU r E  (N2  *  IREC2 ,2003) 

0215 

GO  TC  52 

0216 

210 

00  211  l-l.IKX- 

FORTRAN  IV  G  LEVEL  19 


TEKAT 


OATE  -  71253 


13/24/17 


0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

(!226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 


211  ‘ 

GO  TO,  212 

99  RETURN  ~  " 

1001  WRITE (Nl» IR6Cl,200l>K0UNT 
WRI TE (N2* IREC2 ,2002 IKOUNT 
KOUNT=KOUNT* 1 

GO  TO ( 3001  ,3002, 3003,3004, 3005. 300&, 3007» 3008, 3009,3010, 3011,3012, 
1301 3, 3014, 3015, 3016, 3017,301 8) .NSTEP 

2001  FORMAT  (55X,'PAGE», I4,«L',16X/» 

2002  F0PHAT(S5X,'PAG£«,I4',*R'  ,16X/I 

2003  FORMAT (80X1 

2010  FORMAT ( *L IKEL I hOOO  RATIO  TEST  STATISTIC.  CHI-SQUARE  *  ',£14.4,'  Ml 
1THMSXI 

2011  FORMAT  (F  10.0  »•  D.F.',65X» 

2012  FORMATOOX, 'SIGNIFICANT  AT  LEVEL  '.E13. 3,16X1 

2013  FORMAT (40X» ' MAIR  IX  H»E',30X| 

2014  F0RMAT(40X, 'CORRELATIONS  BASED  ON  H4-E',15X| 

2015  FORMAT ( • STANGARO IZED  ROY  STATISTIC  OR  SQUARE  CF  A  CANONICAL  CORREL 
1  AT  ION  «  ',13X1 

2016  FORMAT (El 6. 6, 64X1 

2017  FORMAT  ( 1  OX ,'  READ  HECK  CHARTS  WITH  S  »  ',13,'  H  «  '.F8.1,'  N  =  '.Ffi 
1.1,15X1 

2018  FORMAT (20X,' WEIGHT  OF  OISCRIMINANT  FUNCT  ION' ,28X1 

2019  FORM AT< 7X, 'CORRELATIONS  BETWEEN  OISCRIMINANT  FUNTION  AND  ORIGINAL 
IVARI ABIES' ,8X1 

2020  F0RMAT(20X, 'DEGENERATE  CASE  ALL  ((-ELEMENTS  ZERO' ,24X( 

2021  FORMAT (• TEST  STATISTIC  F  »  ',F10.4,'  WITH  ',£4.0,'  AND  »,F6.0,'  D. 

IF. ',25X1  ‘ 

ENC 
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0 

C 

c 

c 

c 

c 

c 

c 

c 

0 

c 

c 

c 

c 

0 


SUBROUTINE  TAKA,  T, 01 


TRI  ROUTINE  i 'THE  UPPER1  HALF  OF  A  SYMMETRIC  GRAM  I  AN  MATRIX 
IS  STORED  AS  A  ONE  DIMENSIONAL  VECTOR  IN  PACKED  FORM  All. lit 
All. 21 ,At2,2),A(l,3>,A<2,3).A(3,3>,  ETC.  NRA  AND  NCA  (FIRST 
TWO  COMMONS  1  MUST  BE  SET  EQUAL  TO  THE  ORDER  OF  THE  MATRIX. 

0  IS  A  WORKING  FIELD,  AND  SHOULD  BE  DIMENSIONED  ONE  LARGER 
THAN  NRA  AT  THE  END,  NAB«NRA,  BUT  NC8  IS  KEPIACFO  BY  THE 
RANK  OF  THE  MATRIX  A  .  THE  MATRIX  T  ,  PACK6C  IN  OROER  TCI, 11, 

T(  2, 1 1  ,T<3,1 ),..., TCNRA,1)  ,TII  ,21  ,...,T(NRA,  21 ....  ,T(NRA,NK8  I  ,• 
IS  A  TRIANGULAR  MATRIX  T  SUCH  THAT  T*T'  »  A  .  IF  THE  CALLING 
PROGRAM  WISHES  TO  USE  T  AS  A  DOUBLE  SUBSCRIPTED  FIELD,  THE 
CIMENSIGN  OF  THE  FIRST  ARGUMENT  MUST  EQUAL  NRA  .  IF  THIS 
IS  INCONVENIENT,  SINGLE-DIMENSION  1  IN  THE  SAHE  HAY  AS  A,  THEN 
UNPACK  T  INTO  A  DOUBLE  SUBSCRIPTED  TU  BY  CALCULATING  IJ  * 
(J-tl*NRA  4  I  .  THEN  TU(I,J»  =  T!!J) 


CG02 

,  c 

COMMON  N,I0VLY,'I7YPE,TTL(15),VNAM(10),FNAH(2  1,  NLVL  1 2 

* 

1LEVEL(2,12), NRA,NCA,NRB,NCB, JAB  I  81 ,Nl,N2,NVBL,NFACT,l 
2NE  i'BJj'NLUV  ,  NW1 ,  KM?  , NT , 1  SEC , NI Z,  NJZ , KOUNT ,  NO  I  AG,  IK  EC 
3,N.rtAN<  10)  ,TNAPl  101  ,LUV<  10),HNLUV(  lu) 

0003 

DIMENSION  All), Till, 0(1) 

0004 

NRB  ■=  NRA 

0005 

NCB  «  NK A 

COC  6 

00  577  I C1 ,NSA 

0007 

I  *  I 

OOCB 

CALL  SlITOIO) 

ucos 

00  577  J=I,NRA 

00 10 

J«J 

ton 

IJA  *  I J*( J-l  1  1/2  ♦  I 

(.012 

SUM  =  A1IJA) 

•  1 3 

IH  =  1-1 

1.014 

400 

IF  ( I  Ml  56o.5t6.S75 

*015 

575 

00  5  74  K=l,IP 

0016 

-  K»K 

0017 

K1A  «  (K-1)*NRB  ♦  I 

0018 

KJA  *  K1A  4  J  -  I 

0019 

574 

•SUP  *  SUM  -  1  (K  I  A)*T(K  JA  ) 

0020 

566 

IF (J-l 1  585,585,573 

0021 

585 

IFIAIIJA1I  572,572,576 

0022  . 

576 

0(1)  «  SUM  • 

0023 

QQ  =  A ( IJA 1 

0024 

401 

IF (SUM/QQ  4  5.E-4)  572,570,570 

0025 

570 

IF ( SUM/QQ  -  5.E-5)  590,590,661 

0026 

661 

IFU-NCA!  573,573,590 

0027 

572 

WRITEIM  1  IREC1  ,6501 

0028 

WRITE  I N2' IREC2.2003) 

0029 

650 

F0PHATI40X, 'MATRIX  IS  NOT  GRAMI  AN' ,.19X  1 

C030 

2003 

FORMAT  I  BOX) 

0031 

CO  TO  6U7  • 

OC32 

590 

CALL  SL 1  TUI  1 1 

0033 

Ot 1)  °  0. 

0034 

573 

IJ  *  II-114NRB  4  J 

0035 

CALL  SlITOTU.JLU 

0036 

IFIJLLI  569,565,591 

0037 

569 

TI1J)  -  SUM/ SORT  (0(1)1 
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FORTRAN  IV  fi  6EVEU  19 


DATE  *  71253 


13/24/1 


0036 
0039 
0040  ' 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
C04£ 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0055 
0060 
0061 
0062 
0063 
0064 
0065 
C066 
0067 
0068 
0069 
007C 
0071 


CO  TO  577 

IP  JARS  t  SUM/ CO >  -  5»£“57 "592‘i 592*662 
IMl-NCA)  572«572»592  . 

t:ij>  -  o. 

CONTINUE 

IF  JtlRB-1 1  601*601*630 

CO  600  I»2«NRB  . 

t«t 

CO  600  <l»2t  £ 

J=J 

I JC  ■>  ( l-l)*NR8  ♦  J  -  1 
1 (  IJC)*0«  ' 

CONTINUE 
PO  6U2  I*1,NCB 
I*  1 

CO  603  Jsl'tNRB  _ 

J*  J 

1JC  «  ♦  J  „ 

IFJTUjni)  6C2,6C4,602 
IF  ( J-NIIR )  603*605*605 
CONTINUE 
NCI)  *»  NCIi-l 

IF  ( I -NCB-t )  406*610*610 

00  6C8  K»t  *NCB 

PO  608  L=>1,NRB 

IJf  *  K*NRB  ♦  t 

IJF  »  IJK  -  ARB 

T(  IJF)  *  TJIJEI 

GO  TO  601 

CONT  1NUE 

GO  TO  607 

RETURN 

KNC 


CHIX 


13/24/17 


f'OHTRAh  IV  c  LEVEL  19 


0801 


0002 

0003 

0004 


FUNCTION  CHIXlXi OF) 

C  CHI-SQUARE  P  FROM "X 

C 

CHIXoGAHXI X/2.. OF/2.1 

OETURN 

EMO 


DATE  «  71253 


fortrar  iv  g  level  19 


GAMX 


DATE  -  71253 


13/24/17 


.  OOOl 


0002 

0003 

0004 

0035 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

C017 

0018 

0019 

0020 

0021 

C022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0G35 

0036 

0037 

C038 

0039 

0040 


FUNCTION  GAHX(X,DE) 

c  •  •  ■  incomplete  Gamma  distribution,  formaro;  p  from  X 

c 

Y«X  • 

0F«0E  ... 

SUM«0. 

IF  I  OF- 200 • 120,21,21 
20  IF(XU,1,2 

1  GAFX«=0. 

"•  CO  TO  99  ■ 

2  IF  IDF) 3,3,4 

3  GAMX  «  1.  ' 

GO  TO  59  ' 

4  Fl*  Al^*  AL0G1VI  -V  -ELGGMIAI^l.  > 

16  rF  (F«-80.  1 10 , 10 ,11 

U  FG«EXP  IF) 

FN  =  fG 

12  SUM  *  SUP  ♦  FG 
FG=FG*V/U1*1.  > 

AI  »  AI  ♦  1. 

IFIA1-200. >26*28,25 

28  IF(FG-Fh«13, 14.14 
16  IF  (A  1-200.  112*12  *25 

13  FH  *  FG 

(FIFG/SUH  -  l.E-8115, 15, 12 
10  AI  «=  A 1  + 1 » 

1FIAI-200. 127,27,25 
27  F*F«- ALGGI Y/ A  I 1 

GO  TC  16 

26  YN  » * ( I Y/DF ) **0» 33333333~1**1 »/DHl *$ORT  IDH> 
UNmIX-YGRHXIYNI 
.GAMX»UNM!X*S0H 
GO  TO  99 

15  GAMX  *  SUH  . 

GO  TO  99 
25  GH  *=  9«*AI 
CF  »  A I 
GO  TO  26 
99  RETURN 
END 
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FORTRAN  IV  G  LEVEL  19  YORMX'  '  GATE  -  71253  13/24/17 

C001  FUNCTION  YCRMXIX1 

c 

•  C  NORMAL  DISTRIBUTION,  ARGUMENTS, RESULT  P 

0 

0002  Y«X 

0003  IF (X  +  l 3. 1 1 ,1 <2 

0004  1  YORMX-O 

0005  GO  TO  99 

0006  2  IFIX-7. 13,3,4  ' 

OOC-7  4  YORMX  *  1. 

OOCfl  '  GO  TO  99 

0009  3  G*1.12337917«EXP  l-Y*Y/2.) 

OOIC  Z-G/2.82842712 

0011  XA  .  AfiS  IY) 

0012  IF  IX A-2.5 )  5 » 6,6 

0013  6  U  -  l./<XAU./<XAf2./(XA43./IXA*4./(XA-f5./IXA+6./<XA*7./<XA*8,/IXA 

H9./<XA4lO./|XA*ll./IXA412./XA) 1)1)11)1111 
0014  10  IF  I Y  I  7 ,8, 8 

0015  7  YOKHX  *  U*2 

CC16  GO  TO  99 

0017  *  8  YORMXa  1.  -U*2 

0018  GO  TO  99 

0019  5  ET  ■  1.41421356/ 1 1. 41 421 356»0. 32 7591 1 *XA  I 

002C  U  «  G*<UIG.94C64607*ET-1.2878224S)*fcm.25969513>*ET-0. 25212 

186  6)*£T  *0.2258  36  £46 1*ET  *  0.5 
C02 1  2*1. 

0022  GO  TO  1U 

0023  99  PE1URN 

0024  ENC 


FORTRAN  IV  G  tEVEL  19 


ELGGK 


DATE  «  71253 


13/29/17 


0001 

FUNCTION  ELGGNiXl  * 

Vj 

•  “  C 

"  LOG  OF  GAPMA  ’  FUNCT  IClT  FOR ‘ARGUMENTS  GREATER  THAN  ZERO 

0002 

G 

Y»X 

0003 

• 

TERH*1.0 

0009 

IHX  i  1 1 1 . 2 

0005 

1 

ELGGH  «  0. 

0006 

GO  TO  99  '  . 

0007 

2  ■ 

IFtY-10. 13,3.4 

0008 

3 

TERH=TEPN*Y 

0005 

Y=YM, 

0010 

GO  TO  2'  ’ 

0011 

4 

£1.6GH»!V-0»  5 1*ALQG1 Y)-V*l./I 12.  *Y)-1 »/ t360»*Y**3 )*l»/(  1260. 
1*Y**5)-1»/ tl680#*Y**7)*0.91893653-ALfJGt TERM) 

0012 

99 

RETURN 

0013 

END 

142 


VCRTRAN  tV  G  LEVEL 


DATE  -  71253 


X3/?.1-/'.! 


0002 
0002 
0004 
0005 
■  OOCt 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
COl  7 
0018 
0019 
CO  20 
0021 
0022 
0023 
0024 
■0025 
0026 
0027 
0028 
0029 
0030 
0031 
0022 
0032 
0034 
0035 
0036 
0037 
0038 
,  0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
C048 
0049 
COSO 
0051 
0052 


SUBROUTINE  F ACEt R.FE ,NRR t 

routNS  ns  .on  «o  ««*»"»  si«N»scto«  os 

A  SYHETRtC  MATRIX 

NR£F*'l 

IT  EC  *  600/H8R 
l  CCr  99  1=1. NRR 
i  MAG  ( l )  *0 
NCCU*0 

oc  100 ■ J=1 . NRR 

ft  Jt*U.O 

00  K'l  1=1, NRR 
t  JA=  LTERH ( I »  Jt 
tfU-J1105.lCl.l05 
5  f  t  J )  »f  t  Jt  *  RUJAt 
1  CONTINUE 
0  FIJI*  -FtJ>/2»0 
9  CO  110  tM.NfO 

IfftTAGtlll  111.112.H1 

1  FLU  l=-f  Ut 

GC  TO  110 

2  FI  (I  )*Ft  II 
0  CONTINUE 

CO  120  1*1,  NRR 
IF( FI (111120,120, 121 
>0  CONTINUE 

>1  ?F (NC0U-2»NRRl 122.122,195 

24*  f  L  ( 1  1*  FI  t  J  ) 

JAM 

23  CONTINUE 

IF  (NTAGt  JA  1U2-5.126. 125 
26  NT  AG ( JA  1 1 1 
GC  TO  130 
25  NT  (G  1 J  A  l3(' 

30  NCCU-NCOUU 

OC  131  1*1, NRR 

I  Ft t- JA) 132 ,131 .132 
l32  tJe*LTERHU,JA) 

Ft  l)*Ft  U*Rt  1  Jei 
131  CONTINUE 
GO  TO  109 

199  00  200  1=1 .NRR 

200  Ft  t)  «-7.  *F  1 1 ) 

CO  211  I'l.NPR 

II  >  LTERH1I  ,!  > 

II  FEU)  *  ftll  ♦  5 ION  iRtm.fun 
501**0.0 

00  222  J»1.NRR 
222  SUt**SUH4A8S  tFEtJIJ 
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FORTRAN  IV  G  LEVEL  19  NR IR  0 ATE  «  71253  13/25/17 

0001  SUBROUTINE  MR1RIR,NV,NN1 

C 

C  SUBROUTINE  FOR  WRITING  CORRELATIONS,  MEANS,  ANO  FACTOR  LOADINGS 
0  NN  IS  ZERO  FOR  FACTOR  LOADINGS  AND  MEANS,  ONE  OTHERWISE 
,  C 

0002  COMMON  N,ICVLY<ITVPE,TTLU5),VNAH(10),FNAH12),NIVL12»,NEN(712,12), 

1LEVEL  (2. 121  ,ARA,NCA,NRE,NCE,JABI8I  »N1 »  N2  » NVBL  »  NF  ACT , NG 12 » MUL T , 
2NSUBJ.NLUV  ,NH1,NW2,NT,1SE0,NIZ,NJZ,K0LNT,N()IAG,IREC1  ,  I  REC2,  If-ECJ 
3  *NTRAN ( 10 ) ,TNAM(IOJ ,LUV( 10 ),HNLUV( 10) 


C003 

' 

DIMENSION  R! 1275),JWR<7) ,RWR17 ) ,UKRt 7 ) 

0005 

DO  1101  I«1,NV 

COGS 

NRfc«tNV-l!/7n 

0006 

CO.l  102  ‘  J“1,NRE 

0007 

IF (7»J-NV)  1103,1103,1105 

0008 

1103 

K*7 

COOS 

GO  TO  1105 

CO  10 

1105 

K*7-7«J*NV 

0011 

1105 

CO  1107  L=1,K 

L012 

JWKll)=7*<  J-1ML 

0012 

JKRL  =  JWRILI 

0015 

1107 

UKKURTNAH1  JWRl) 

LOIS 

NSTe P»1 

0016 

IREC.*IRECI-1 

0017 

IF  IMOD ( 1  Rt C, 55  1  ,FQ,  0)  GO  TO  1001 

0018, 

501 

URITEINl*  I RECl  ,2003) 

LOIS 

MR  IT  EIN2* IREC2,2G03) 

0.720 

NSTC  P*2 

0021 

IF.  EC=  I  RECl  -1 

0022 

IFIMCOUREC.55)  .60.  0)  GO  TO  1001 

0023 

502 

IFIK.LE.51G0  TC  301 

0025 

IFIK.GT.51C0  TC  302 

f.025 

301 

WRITE  I  M'  I  RECl, 501) IUWRIM ) ,H» 1,K ) 

0026 

WP  ITEIN2*  IR£C2»2003) 

0027 

GO  TO  303 

0026 

302  • 

■WRITE  INI'  I  RECl  ,501 )  (UWRIM )  ,N»1 ,5  ) 

0029 

WRITEIN2' I R  EC  2 , SC  2  I IUWRI  M ) ,M«6, K ) 

0030 

303 

CCNTINUE 

0031 

IFIMM1129, 1130, 112S 

0032 

1130 

CO  1131  M=1,K 

0032 

ME  *  JWRIHI 

C035 

1131 

RWRIHI  =  R IMF » 

0035 

NSTF.P  =  3 

0036 

IRLC=I RECl-l 

0037 

IF  IMOCI I REC , 55 )  .EQ.  0)  GO  TO  1001 

0036 

503 

IF (K.LE.5 I  GO  TC  305 

l'03S 

IFIK.GT.51GG  TO  305 

0050 

305 

WRITE  INI' [RECl , 5C3 ) (RWKI N ) ,N« l ,K  > 

C05 1 

WRITF  <  N  2  *  I  RE  C2  1 2003 ) 

0052 

GO  TO  206 

0053 

305 

WRITE  INI* l RECl ,503) IRWRI N),N« 1,5) 

0055 

WRITEIN2* IREC2 ,5C5) (RWRI Ni (N«6,K 1 

005  S 

306 

COM  INUE 

G05S 

GC  70  1102 

L057 

1129 

00  112(1  M*  1 ,  K 

0058 

MU  L  TERM  I  I , JWR I M ) ) 

C05S 

1120 

RWRI H) t HR ) 
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'FORTRAN  IV  C  LEVEL  19  NRIR  DATE  »  71253  13/24/17 

0050  VX=*TNARU'»  ... 


0051 

NST£P*4 

0052 

1RCC  =  1R£C1-1 

0053 

IF (MOD! I REC, 45 )  «EQ.  0)  CO  TO  1001 

0054 

404 

IFIK,LE.5)G0  TC  307 

0055 

IF  (K«GT*  5)  GO  TO  308 

0056 

307 

tiRIT£iNl'IR£Cl,505)VX,tRt«RtM)  ,N*1 , 

0057 

fcRITE(N2'IREC2*2003) 

0058 

GO  TO  309 

0055 

308 

hRITEINl* IR£C1,5C5)VX,{RURIN»,N«1, 

CO  60 

WR 1  TF ( N2* IREC2.504) (RHR{ M ,N*6 ,K 1 

CU61 

309 

CONTINUE 

0062 

1102 

CCNTINUE  ’• 

0063 

IFINNI1127, 1128, 1127 

0064 

1127 

CONTINUE 

0065 

1101 

CONTINUE 

0066 

1129 

RETURN 

0067 

1001 

HRITEINl* IREC1.2001 IKCUNT 

0068 

WR ITECN2' I REC2 ,2002 1 K CUNT 

0065 

KOl)NT=»KQUNT+l 

0070 

* 

GO  T0I401, 402, 403, 4041, NSTEP 

0071 

2001 

F0RHAT<55X,»PAGE*,I4»»L* ,16X/> 

0072 

2002 

FOPMAT(55X,'PAO£',I4,'R'  ,16X/) 

0073 

200  3 

FORMAT  1 8C  X I 

0074 

501 

FORMAT(12X«A4«4(OX,A4  1,16X1 

0075 

502 

FORMAT (2 I8X «  A4 1 « 56X1 

C076 

503 

FORMAT  I 7X, 1P5E12. 4,13X1 

0077 

504 

FORMAT  (IP2E12, 4,56X1 

OC78 

505 

F0RMAT(3X,A4,1P5E12«4,13X) 

0074 

ENG 

I 


l-ORTRAN  IV  G  LEVEI. 


19  IHSID 

1 

SWHiOUTlNE  1NSL0  ( AiTiCI  , 


DATE  «  71253 


13/29/1 7 


0003 
0009 
C005 
0006 
0007 
0006 
0009 
0010 
0011 
0012  . 
0013  \ 

0019 
0015 
0016 
U01  7 
0016 
0019 
0020 
0021. 
0022 
0023 
0029 
0025 
0126 
0027 

co2e 

0029 
0030 
0021 
0032 
0033 
0039 
0035 
0036 
0037 
00  3  f! 
0029 
0090 
0091  . 
0092 
0093 
C099 , 
0095  , 
G096 
0097 
0098 
0099 


(IOTA  INS '  INVERSE  OR  COHDiTIOIlAL  INVERSE  OF  GRAM  IAN 
MATRICES;  AI.SO  OBTAINS  SUP-WISE  LOG-DETEIIHImANT S 

COMMON  N, IUVLY, (TYPE.UL 1 151 rVNAMI 10 1 , FNAH{ 2  I ,NLVL < 2  I ,UEN0(2,12) , 
1  t.F.VCLI  2  1 1  2  ) ,  M'.A  .  tiCAj  NROrfiC  U*.l  Afj  1 8  )  ,N1  ,N2 ,  NViJL ,  NF  ACT ,  NGl'2 .  MUl  T  , 
2NSUiU,NlUV  ,  NV  i ,  NU2  iNT  » I  S£C,NI  /. ,NJZ,  KCLNT  ,N0 I  AG » I R  EC  1  ,  IREC2',  1  REC3 
3  «NTR  AN  <  10 1  ,TNAI>(  10 ) ,  LUV(  10 1 ,  MNLUVl 10 ) 

DIMENSION  All!  ,T(1),  OH)- 
'  CO  *  0. 

: cn  577  1*1, NFA 
CALL  SU10IO1 
CO  577  ,i*  I  »NPA 

I JA=  {( J-ll*J)/2*  I  , 

SUP  =  A<  IJA1 .  \ 

IM»  t-1  ’  1 

3  lf(IH)566,566,575 

5  00  579  K-l.IP  ' 

K I  A=  1 1  *"(  1-11  1/2  ♦  K 
KJA  *•  I 1 1 1/2  ♦  K 
IFI0IK1I  1 589,579,1584 
i  SUHs^UP- T  till  A1  #T  ( K  JA1  /0(  K1 

i  CONTINUE 

1  IF ( J~1 1 5E5 ,565 ,573  '  ’ 

>  IFIAl  IJA11576, 1100,576 
)  C« 1 1 =  SUK 

00  1101  H=1,NRA  t 
MX*  (H* ( M* 1 1  1/2  1 

IF  (A  (MX  1 1 1 10 2 1 1 1 01’,  1 102  ,  •  , 

2  CO*  A3S  (A(l'Xl)  ' 

.GO  TO  1103  !  !  1 

l  CONTINUE  •  ‘  •  \ 

1  IF  (001 572, 1109,901 
1-LLP=  (KRA«(NRA*ll  1/2 

CO  1105  H=1,UP  •  , 

IF(A(M)  11106,1105,1106  •  . 

S  <K)=ABS  (AIPI  |  ’  1 

GO  TO  HOT 

>  CONTINUE 

1  IF (0Q1 572 , 572, 90 1 
i  Cl  1 1  “SUM  ! 

CO*A((JA)  , 

1  IF  (AU$  (  SUM/C01-5.E-5159C,590,573 
i  UR  I  Tf:  ( N1  « I  ROC  1,1  5721  , 

UR !  TE  (N2  *  (RF.C2 , 2003 1  . 

!  FORM  AT  ( 17X,  ’  PAIR  IX  HOT  POS  DEFINITE^  OR  POS  SEHIDEF  IN  ITE *  ,20X1 
1  FORMAT (80X1 
1  PE  TURN 
)  CALL  SLIT0I1  1 
0(11*0.0 

1  IJ*  I J * ( .1- 1 1  1/2  ♦  I 
CALI  S  L I  TOT  ( 1 .  JLU 

lr(Jltl569,549,‘591  ' 

!  T 1  I J I *SUH  1 

GO  TC  577  * 
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FORTRAN 

•  0050 
0051 
0052 
0053 
00  5 A 
0055 
0056 
0051 
0056 
L059 
006C 
,  0061 
0062 
0063 
006  A 
0065 
0066 
0061 
u066 
0069 

’  CC7C 
0011 
0012 
0073 
QUIA 
0015 
0016 
0071 
0078 
0C79 
0080 
00  61 
0067 
0081 
00  8A 
0085 
0066 
0081 
0088 
0085 
0090 
0051 
0092 
0093 
008A 
0095 
0056 
0057 
0058 
00.59 
0100 
0101 


IV  C,  LEVEL  19 


1HSL0 


DATS:  *  71253 


591 
A02 

592 
577 


301 

300 

702' 


30A 


‘305 

303 


901 

10l' 

701 

115 

UA 

lie 

1575 


120 

123 

119 

122 


CALL  SLI 10(1 1  ,  „ 

IF  (A»S  (  SUM/CO  1-5. E-51  592*592*569 

It  1 J)-O«0 
CONT  UIOE 
CO  300  1  =  1  * N SB 

ia*(  ii+n*n/2 

IF(TtlA)  1301.300,3U^  \ 

Tt  ia  1=1  »o/r(  ia  i  , 

CONTINUE 

!F(NRP-1)7G1*7C1,702 
NM  =  NRfl-1 
DO  301  I = l ,NR 
IPX*  1*1. 

001303  J=  I PX «NRA  I 

nA=-{J*IJ*l»»/2  ! 

SUHl *0*0  j 

JHI* J~1  I  ' 

CO  3<>A  K=  1  * JHI  (  , 

IAB*U'<  J“H  1/2+K 
tac=(K«(K-n  i/2+i 

IFtrt (IN) n0A,2C5,30A 
SUH!=5UMl-^tlAel*!UBC) 

t(Iaci«sun»*uiin» 

GO  10  302  1  t 
T( [AC1»0.0 
CONTINUE 
CO  101  1=1 *NRA 
00  101  J= 1 ,NPA 
SUNX='.»*0  \ 

00\9C1  K= J  *  NR4 i 
KtX*(K*IK-l)>/2  ♦! 

KJ  i=K  1  < ♦  J-  I 

SUMX*.$UKX*T(KIXI*T<KJX)‘C(K> 

JIXa(JA( J-lil/2«t  j 

TtJixmsuHx  1 

CCMTINUE 

IFIi)(lllllAillA»H5 

otn=ALOG(cun 

GO  TO  118  ) 

C(  ll=0.-.95959555E33 
1F'NKA-1I  1573*1573.1575 
00  1  22\  I  =  2  *  NR  A 
I M  =  I  - 1  ' 

IF  (01  nit  19*  119, 12c 

IF (01 IH 1 +*59595596+ 18)115,119,123 
Otn--O(IHMALOGtCjm) 

GO  TO  122  '  1 

Cl  I !  =0.- .9995 999 SE38 

cent  imje 

RETURN  , 

ENC 


’  147 


13/25/;  ’ 


I 


! 


1 

t  . 


148 


f 


f? 

K 


FORTRAN  IV  G  t-EVEt.  19 


(.TERM  DUE  “  71253 


COO  1 


0002 

CG03 

0004 

C005 

0006 

0007 


c 

t 

c 

c 


1 

2 

3 


r-uKcnoM  t.T uf:M ( i i.jji 

LOCAftS  TEH  MS  0?  SYMMETRIC  MATRICES  STORFO  IN  PACKfcO 
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